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TROTT  is  a  Lagrangian  finite-difference  computer  program  for  calculating  two- 
dimensional  stress  wave  propagation  through  solid,  porous,  and  composit  materials 
The  stress  waves  may  be  caused  by  impact,  detonation  of  an  explosive,  or  a 
prescribed  velocity. 

The  calculational  procedure  is  the  standard  leapfrog  method  of  von  Neumann 
and  Richtmyer,  using  artificial  viscosity  to  smooth  shock  fronts.  Quadrilateral 
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the  cells  as  finite  elements.  Axisymmetric  or  planar  flow  can  be  handled. 

The  constitutive  relations  include  the  standard  Mie-Gruneisen  equation-of- 
state  and  elastic-plastic,  work-hardening  deviatcr  stress  relations.  A 
polytropic  gas  and  detonating  flow  relations  are  provided  for  explosives. 
Ductile  and  brittle  fracture  and  shear  banding  are  provided  by  nucleation  and 
growth  models.  Porous  materials  can  be  represented  by  a  cap  plasticity  model 
A  model  for  layered  composities  is  also  present. 

The  code  is  constructed  for  easy  insertion  of  additional  material  models. 
The  number  of  extra  variables  required  for  each  cell  for  a  material  model  can 
be  specified  on  an  input  card. 

This  manual  includes  many  sample  problems,  a  derivation  of  the  flow 
equations,  and  a  discussion  of  material  models. 
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This  volume  constitutes  Volume  III  of  the  three-volume  final  report 
to  Ballistics  Research  Laboratory  on  Contract  DAAK11-77-C-0083 ,  SRI 
Project  6802.  Volume  I  reports  on  ballistic  experiments  and  calculations, 
and  describes  work  on  the  latest  version  of  the  SRI  brittle  fracture 
subroutine.  Volume  II  is  the  manual  for  the  one-dimensional  wave 
propagation  code  SRI  PUFF  8. 
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1.  INTRODUCTION 


The  TROTT  code  is  a  finite-difference  computer  program  for  treating 
two-dimensional  stress  wave  propagation  caused  by  impacts  or  explosive 
detonation  in  either  planar  or  axisymmetric  flow.  Calculations  are  made 
with  the  Lagrangian  form  of  the  equations  of  motion  so  that  the  coordinates 
move  with  the  materials.  Artificial  viscosity  is  used  to  spread  wave 
fronts  over  several  cells.  This  manual  provides  a  preliminary  description 

of  the  algebra  of  the  code  and  exhibits  input  for  several  types  of  calcu- 
lations . 

The  TROTT  code  was  constructed  largely  as  a  means  for  exercising  the 
special  material  models  under  construction  at  SRI.  This  emphasis  is 
reflected  in  the  special  features  of  the  code: 

•  The  code  can  accommodate  complicated  material  models 
with  large  amounts  of  storage  per  cell.  The  insertion 
procedure  for  new  models  and  the  provision  for 
additional  storage  for  cells  are  described  in  Appendices 
A  and  B. 

•  The  code  is  simple  and  can  be  easily  modified.  Input 
decks  are  small  (see  the  sample  input  decks  in  Appendix  C) . 

•  The  cell  layout  is  easy  and  permits  flexibility  in  initializing 
velocity  distributions. 

•  The  code  is  core-contained. 

•  The  TROTT  cells  are  treated  as  finite  elements  for  mass 
and  momentum  calculations. 

Because  of  the  code's  simplicity,  it  runs  about  three  times  faster  than 
standard  two-dimensional  codes..  Two  additional  features  are  being  added 
to  improve  the  treatment  of  large  deformation  problems:  elementary  slide 
lines  are  available  and  an  automatic  rezoner  has  been  written  but  is  not 
in  the  current  version  of  TROTT.  Although  the  core-contained  feature 
simplifies  the  code,  it  also  restricts  the  size  of  problems  that  can  be 
treated. 
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TROTT  was  derived  independently,  but  it  is  similar  to  many  other 
two-dimensional  Lagrangian  codes.  Early  codes  of  this  type  are  HEMP 
(Ref.  1)  and  TOODY  (Ref.  2).  More  recent  developments  are  WAVEL  (Ref.  3) 
and  STEALTH  (Ref.  4).  These  four  are  all  large  codes  containing  slide 
lines,  rezoning,  and  buffering  of  cell  variables,  but  they  have  difficulty 
in  incorporating  new  material  models  with  large  numbers  of  Variables  per 
cell. 
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2.  ORGANIZATION  OF  THE  CODE 


TROTT  computes  stress  waves  caused  by  impact  or  explosive  detonation. 
The  governing  equations  are  numerically  integrated  by  the  leapfrog  method 
of  von  Neumann  and  Richtmyer  (Ref.  5).  For  the  calculations,  the  material 
is  divided  into  small  cells  or  continuum  elements.  The  computations  pro¬ 
ceed  by  stepping  forward  in  time  in  small  increments.  At  each  increment, 
calculations  are  made  of  stress,  velocity,  displacement,  and  so  on  at  each 
cell  and  coordinate  point. 

The  primary  routines  of  the  program  are  TROTT  (overall  control) , 
LAYOUTT  (initialization) ,  SWEEPT  (propagation  calculations  for  each  cell) , 
and  SCRIBET  (printing  historical  listings) .  The  flow  of  program  control 
is  illustrated  in  Figure  1,  which  shows  the  relations  between  the  sub¬ 
routines  and  the  main  program.  A  brief  description  of  the  work  of  each 
subroutine  follows: 

•  TROTT,  the  main  program,  sets  the  size  of  the  variable  storage, 
calls  LAYOUTT  for  initialization,  calls  SWEEPT  for  propaga¬ 
tion  calculations,  writes  restart  dumps  and  plot  files,  sets 
the  time  increments,  and  calls  SCRIBET  for  historial  listings. 

•  LAYOUTT  zeroes  arrays,  reads  input,  lays  out  the  cells, 
and  initializes  cell  variables. 

•  SWEEPT  performs  a  calculation  for  all  cells  at  a  time  step 
at  each  call.  It  computes  the  coordinate  velocities  from 
momentum  conservation,  computes  strains,  and  then  either 
calculates  stress  or  calls  a  material  model  subroutine  to 
obtain  the  stress.  This  routine  also  stores  variables  for 
the  historical  listings. 

•  SCRIBET  writes  the  historical  listings  at  the  end  of  a 
problem. 

®  REBAR  computes  stresses  in  a  layered  composite  such  as 
reinforced  concrete  (see  Ref.  6). 

•  CAP1  provides  stress  and  tensile  fracture  in  a  porous 
material  with  a  combined  Mohr— Coulomb  yield  and  compaction 
behavior  (see  Ref.  6). 


13 


Historical  Prints 


’Starred  stress-strain  routines  are  also  called 
by  LAYOUTT  for  initialization 

MA  -6802- 15 

FIGURE  1  FLOW  CHART  OF  TROTT 
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o  EPLAS  computes  stress  for  a  work-hardening  elastic- 
plastic  material  (see  Ref.  6). 

•  DFRACT  computes  stress  and  void  growth  in  material 
undergoing  ductile  fracture  (see  Ref.  7). 

•  BFRACT  provides  stress  and  crack  growth  in  material 
undergoing  brittle  fracture  (see  Refs.  7,8). 

•  SHEAR2  computes  stress  and  damage  for  material  undergoing 
shear  banding  (see  Ref.  9). 

•  DFRACTS  computes  stress  and  void  growth  for  static 
ductile  fracture  (see  Ref.  10). 

•  EXPLODE  provides  pressure  in  explosives  (described 
in  Appendix  D) . 

A  listing  of  the  program  and  all  subroutines  is  provided  in 
Appendix  E.  Appendix  F  is  a  glossary  of  the  nomenclature  used  in  the 
equations  of  this  report  and  the  nomenclature  used  for  input  quantities 
and  other  major  variables  in  the  computer  program. 
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3.  PROPAGATION  CALCULATIONS:  SWEEPT 


The  motion  and  stresses  throughout  the  material  are  determined  as 
a  function  of  time  in  the  code.  The  solution  is  effected  by  solving  the 
mass,  momentum,  and  energy  conservation  relations  together  with  consti¬ 
tutive  relations  for  the  material  as  outlined  in  this  section. 

The  material  is  first  divided  into  discrete  units  or  cells.  Motions, 
energies,  and  other  quantities  are  initialized  in  cells  as  required  for 
the  particular  problem.  Then  the  propagation  calculations  begin.  As  a 
guide  in  understanding  the  relationship  of  the  conservation  relations, 
constitutive  relations,  and  the  solution  procedure,  Figure  2  shows  the 
cell  quantities  on  a  time-distance  plot.  For  simplicity,  Figure  2  con¬ 
tains  only  one  independent  spatial  direction  (Eulerian  X  or  Lagrangian  J) . 
Coordinate  quantities  (location  and  velocity)  are  defined  only  at  cell 
boundaries  and  at  full  or  half-time  increments.  All  other  quantities 
(such  as  stress)  are  determined  at  cell  midpoints  and  full  time  increments. 
The  momentum  calculation  (or  F  =  Ma)  is  used  to  determine  velocity  changes. 

For  example,  in  Figure  2,  the  stresses  a  and  a-  in  adjacent  cells 
th  J+l,n 

at  the  n  time  step  determine  the  forces  on  the  mass  centered  at  point 

(J,n).  The  acceleration  of  this  mass  determines  the  change  in  velocity 

^J,n-l/2  t0  n+1 / 2  *  ^rom  the  new  velocity,  the  coordinate  position 

is  obtained.  With  the  coordinate  positions  at  time  n+1  known,  the  strains 

and  density  are  also  obtainable.  Next  the  stresses  such  as  O  are 

J ,  n+1 

calculated  from  the  strains  and  density,  using  the  constitutive  relations. 
The  procedure  is  continued  to  the  right  through  each  cell  for  each  time 
increment.  This  process  of  stepping  forward  in  time  and  performing  calcu¬ 
lations  for  each  cell  is  repeated  until  the  time  has  reached  the  duration 
of  interest.  The  time  step  is  controlled  by  the  stability  and  smoothness 
criteria  described  in  this  section.  Following  the  motion  calculations, 
the  strain  increments  are  computed. 
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FINITE-DIFFERENCE  GRID  SHOWING  LOCATIONS  OF  VARIABLES  USED  IN 
THE  MOMENTUM  CONSERVATION  RELATIONS 
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3.1  Solution  of  Conservation  Relations 


The  conservation  relations  for  mass,  momentum,  and  energy  are  the 
basic  equations  governing  the  wave  propagation  process.  Mass  conserva¬ 
tion  is  effected  in  the  code  by  using  Lagrangian  cells  that  maintain  a 
constant  mass  throughout  the  problem.  Momentum  conservation  relations 
are  used  to  obtain  the  coordinate  motions,  and  energy  conservation  is 
the  basis  of  the  internal  energy  calculation.  First,  momentum  conserva¬ 
tion  is  treated  here,  then  the  energy  computation. 

In  deriving  momentum  conservation  relations,  it  is  possible  to  use 
a  discretization  of  the  differential  equations  of  momentum  conservation 
or  to  consider  force  balances  around  a  finite  element.  The  following 
derivation  uses  the  second  point  of  view,  a  finite  element.  Therefore, 
the  steps  in  the  calculation  are  to  isolate  a  volume  element  for  which 
the  acceleration  and  velocity  are  computed,  compute  the  forces  acting  on 
that  element,  and  compute  the  mass  of  the  element.  Quadrilateral  cells, 
the  more  common  type,  are  treated  first,  and  then  triangular  cells. 

Two  types  of  quadrilateral  cells  are  defined  for  the  wave  propaga¬ 
tion  calculation.  Both  are  shown  in  Figure  3,  which  contains  a  grid  of 
coordinate  points.  Cell  A  is  the  natural  cell  surrounded  by  four 
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FIGURE  3  TYPES  OF  CELLS  FOR  STRESS  AND  MOMENTUM  COMPUTATIONS 
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coordinate  points.  This  is  the  cell  for  which  the  strains  and  stresses, 
which  are  homogeneous  throughout  each  cell,  are  computed.  The  momentum 
computation  determines  the  velocity  of  the  coordinate  points.  For  these 
calculations  cell  B,  containing  the  mass  around  a  coordinate  point,  is 
used.  The  calculations  are  broken  into  four  portions  corresponding  to  the 
parts  lying  in  each  of  the  surrounding  stress  cells.  One  typical  portion 
is  shown  in  Figure  4  with  the  nomenclature  and  sign  conventions  that  are 
used  in  the  derivation  of  momentum  conservation  or  velocity  change  at 
point  3.  (Stress  is  positive  in  tension.)  Note  that  the  standard  axi- 
symmetric  shell  is  a  ring  or  doughnut,  whereas  the  planar  cell  is  quadri¬ 
lateral  with  indefinite  thickness  in  the  Z  direction. 


(a)  Cell  in  the  x-y  Plane 


(b)  Axisymmetric  Cell 
Cross  Section 


(c)  Planar  Cell 
Cross  Section 
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FIGURE  4  STRESS  AND  COORDINATE  NOMENCLATURE 
FOR  AXISYMMETRIC  AND  PLANAR  CELLS 


The  configuration  of  the  shaded  element  in  Figure  4  is  defined  in 
such  a  way  that  the  x  and  y  coordinates  of  the  point  0  are  averages  of 


19 


the  coordinates  at  the  four  corners  of  the  stress  cell.  End  views  are 
shown  in  Figure  4  as  a  reminder  of  the  three-dimensional  character  of 
the  elements.  For  an  axisymmetric  cell,  the  areas  of  the  shaded  element 
on  which  stresses  act  in  the  x  and  y  directions  are: 
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For  planar  cells  the  areas  in  the  x  and  y  directions  are: 
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For  the  axisymmetric  case,  the  area  in  the  x-y  plane  on  which  the  stress 
acts  is  broken  into  two  portions  A^  and  A^  as  shown  in  Figure  4.  These 
portions  and  the  total  are: 

A0  ’  f[<2x0  -  x3)(y2  -  V  +  X2(y3  +  y4  ‘  2y0) 

+  x4<2y0  -  y2  -  y3)]  (5) 

A3  =  i^x4^y2  ”  y3^  +  x3^y4  "  yl)  +  x2^y3  "  y4^  (6) 


A 

xy 


+  A„ 


(7) 


Equations  (5)  and  (6)  are  derived  by  simplifying  the  usual  general  rela 
tions  for  the  area  of  a  triangle. 

The  forces  in  the  x  and  y  directions  applied  to  the  small  mass  repre¬ 
sented  by  the  shaded  area  in  Figure  4  are  determined  by  multiplying  the 
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stresses  shown  in  Figure  4  times  the  areas  in  Eqs.  (l)-(4)  and  (7).  The 
expressions  for  the  forces  are: 


F  =  T  A  +  T  A 
x  xy  yy  xx  xx 


(8) 


and 


’  A 

+  T  A 

yy  yy 

xy  xx 

’  A 

+  T  A 

yy  yy 

xy  xx 

T  A  d0 
zz  xy 


(axisymmetric) 

(planar) 


(9) 


For  the  axisymmetric  case,  each  force  term  contains  the  angle  d0,  which 
is  left  undefined.  When  force  is  divided  by  mass  to  obtain  the  velocity 
change,  d0  is  removed.  The  sign  convention  for  the  area  computations  is 
such  that  the  product  of  stress  and  area  is  positive  in  the  increasing 
x  and  y  directions.  Because  each  cell  is  written  with  point  3  as  the  one 
for  which  velocity  is  to  be  determined,  the  preceding  forces  and  areas 
are  valid  for  all  quadrilateral  cells  around  the  point. 

The  mass  of  the  small  element  is  determined  by  multiplying  the 
average  density,  p,  of  the  cell  shown  in  Figure  4  times  the  volume  of  the 
element.  The  axisymmetric  cell  mass  is  as  follows: 


M  = 


+ 


(10) 


For  the  planar  cells  the  mass  is  simply 


M  =  pA 

xy 


(ID 


Newton's  second  law  is  applied  to  obtain  the  change  in  velocity  at 
the  coordinate  point  3,  considering  force  and  mass  contributions  from 
four  quadrilateral  elements  around  the  point.  (The  index  i  runs  over 
these  elements.) 
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(12) 


44  ’  VH/2  '  Vl/2 


4 

(Z  F  , ) At 
i=l  X1 
4 

E  M. 


n 


i=l 


i 


where  Ax  is  the  change  in  velocity  in  the  x  direction  over  the  time  incre¬ 
ment  At^.  A  similar  relation  is  used  for  Ay.  The  spatial  and  temporal 
relationships  between  the  cell  variables  are  shown  in  Figure  2. 

Triangular  cells  are  provided  in  TROTT  by  allowing  the  user  to  divide 
some  quadrilateral  cells  into  triangles  with  the  orientation  shown  in 
Figure  5.  The  changes  in  the  momentum  equations  to  account  for  triangular 
cells  are  considered  here.  For  the  quadrilateral  cells  in  the  upper  right 
and  lower  left  corners  of  Figure  5,  only  one  triangular  cell  is  adjacent 
to  the  point  3.  Therefore,  the  stresses,  areas,  and  masses  are  derived 
entirely  from  that  cell,  and  the  previously  derived  equations  are  used. 
However,  the  coordinates  of  point  0  (Figure  4)  are  given  by 


Xo  =  1/2(x2  +  V  (13 

yo  =  i/2(y2  +  y4) 


The  mass  and  force  contributions  of  the  remaining  four  triangular  cells 
in  the  upper  left  and  lower  right  corners  are  determined  separately  and 
then  summed.  The  area  A^  is  computed  as  usual  for  a  triangle: 


A  =  1/8 


xy 

for  a  triangle  with 


A  =  1/8 
xy 


X4(yl  -  y3}  +  X3(y4 
vertices  at  points  1 

Xl(y2  “  y3>  +  X2(y3 


-  yx>  +  t1(y3  -  y4> 

3 ,  and  4 ,  and 

-  y3>  +  *3(yi  -  y2>] 


(14) 


(15) 


for  a  triangle  with  vertices  at  1,  2,  and  3.  For  this  same  1-2-3  triangle, 
the  areas  of  axisymmetric  cells  in  the  x  and  y  directions  are 
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FIGURE  5  FOUR  QUADRILATERAL  CELLS  DIVIDED  INTO 

TRIANGULAR  CELLS,  PLUS  THE  MASS  AT  POINT  3 
USED  FOR  MOMENTUM  CALCULATIONS 
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(16) 


A 

xx 


A 


yy 


f^(y2  -  y1)(y2  +  2y3  +  yp 


f^(xl  ~  x2^y2  +  2y3  +  yp 


For  planar  cells,  the  areas  are 


A 

xx 


=  .  l/2(y2  -  yx) 


A  =  1/ 2(x  -  x  ) 

yy  12 


(17) 


Areas  for  the  1-3-4  triangle  are  derived  by  a  permutation  of  indices. 

Masses  of  the  cells  are  obtained  from  an  adaptation  of  Eq .  (10)  or  (11). 

Following  calculation  of  the  areas  and  masses  of  triangular  cells, 

Eq.  (12)  is  used  to  obtain  the  new  velocity. 

3 . 2  Strain  Computation 

The  strain  computations  in  the  two-dimensional  wave  propagation 
program  are  based  on  the  assumption  that  the  strains  are  uniform  throughout 
each  quadrilateral  cell  of  type  A  shown  in  Figure  3  and  each  triangular 
cell  in  Figure  5.  The  required  strains  are  true  strains.  The  strain 
computations  are  constructed  to  meet  the  following  compatibility  require¬ 
ments  : 


,  AA 

£  +  £  =  7— 

x  y  A 

(18) 

£  +  £  +  £ 

X  y  Z 

AV 

V 

(19) 

where 


e 


x 


e 

z 


changes  in  the  strain  that  occur  during  a  time 
increment 


AA  =  change  in  the  cell  area  A  in  the  x-y  plane 
AV  =  change  in  the  volume  V  of  the  cell. 
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To  ensure  that  compatibility  of  strains  is  enforced,  we  assume  a 
velocity  field  (which  is  unique),  rather  than  a  strain  field.  Strains 
that  are  uniform  throughout  a  cell  are  produced  by  the  following  linearly 
varying  velocity  field. 


u  =  uo 

+  U  X 
X 

+  u  y 

y 

(20) 

v  =  vQ 

+  V  X 
X 

+  v  y 

y 

(21) 

where  u,  v  =  particl 

e  velocity 

in  the 

x,  y  directions. 

respectively 

The  strain  rates  corresponding  to 

these  velocities  are: 

e 

X 

3u 

3x 

u 

X 

(22) 

e 

y 

3v  _ 

3y 

V 

y 

(23) 

• 

e 

xy 

=  + 

2  \3x 

3u  \ 

3y  / 

1  (v  +  u  ) 

2  x  y 

(24) 

(I) 

xy 

1/  3v 

2  l  3x 

3u  \ 

3y  ' 

:  hv  -  u  ) 

2  x  y 

(25) 

where 

£  =  tensor  shear  strain  rate 

xy 

<Lxy  =  rotation  rate  in  the  xy  plane. 


The  velocity  fields  of  Eqs.  (20)  and  (21)  can  be  determined  for  any 
triangle  if  the  velocities  at  the  coordinate  points  are  known.  Consider 
for  example  the  triangle  in  Figure  6  with  coordinates  1,  2,  and  3  and 
velocities  in  the  x  direction  of  u^  u ^  and  u  .  The  velocity  field 
parameters  u^,  u^,  and  uy  can  then  be  determined  from  the  following  three 
equations : 
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FIGURE  6  QUADRILATERAL  ELEMENT  PRODUCED  FROM  TWO  TRIANGLES 


u  =  u  +  u  x  +  u  y 
1  0  x  1  yJ  1 


u?  “  u  +  u  x  +  u  y 
a  0  x  2  y  2 


(26) 


uo  =  un  +  u  x  +  u  y 
3  0  x  3  y  3 

where  the  x^  are  coordinates  of  the  ith  point  at  some  (as  yet  undeter¬ 
mined)  time.  Solution  of  Eqs.  (26)  gives  the  following  results  for  u 
and  u  : 

y 


..  .  <U1  -  u2>  (yi  -  y3>  -  <“i  -  u3>  <?!  -  y,) 

x  2A 

(Uf  -  u2)  (Xj  -  x3)  -  (u^  “  u3)  (xx  -  x2) 

UY  -  —  — 


(27) 


(28) 


where  A,  the  area  of  the  triangle  123  shown  in  Figure  6, 


IS 


2A  =  (xx  -  x2)  (yx  -  y3)  -  (Xl  -  x3)  (y3  -  yJ 
=  x1(y2  -  y3)  +  x2(y3  -  yJ  +  x^  (y^  -  y2) 


(29) 
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Similarly  the  strain  in  the  y  direction  can  be  determined. 


v 


V 

y 


(vl  ~  v2)  (yl  ~  y3)  ~  (vl  ~  v3}  (yl  ~  V 

— 

(V1  -  v2)  (xx  -  x3)  -  (v1  -  v3)  (x1  -  x2) 

— 


(30) 

(31) 


The  next  step  is  to  specify  x_^ ,  in  Eqs .  (27)  through  (31)  in 
such  a  way  that  Eq.  (18)  is  satisfied.  This  calculation  is  performed 
in  two  steps:  first,  the  requirements  are  satisfied  for  each  of  the  two 
triangles  shown  in  Figure  6  and  then  the  computation  is  made  for  the 
whole  quadrilateral.  To  meet  the  requirement  for  triangle  123,  the  area 
A  of  Eq.  (29)  is  taken  as  the  average  of  the  areas  at  the  beginning  and 
end  of  the  time  increment,  that  is, 

A  =  -|-(A0  +  A1)  (32) 


A  compatible  form  for  the  strain  rate  in  the  x  direction  is  given  by 


A  0  0  r  *  1  1 

A  u  +  A  u 
x  x 

aSa1 


(33) 


where  values  with  a  superscript  0  are  computed  with  initial  values  of 
x  and  y,  and  values  with  a  superscript  1  are  evaluated  with  final  values 
of  x  and  y.  These  final  values  of  coordinates  are 

1  0  . 

x.  =  x.  +  u .At 
i  ii 

(34) 

yl  =  y?  +  v . At 

i  i  i 
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Next  we  test  the  compatibility  in  Eq.  (18)  by  substituting  A  from  Eq. 
(32)  (replacing  the  coordinates  in  A1  with  their  values  from  Eq.  34), 
the  strains  from  Eq.  (33),  and  a  comparable  relation  for  e  ,  and  letting 

io  y 

AA  -  A  -  A  .  Then  Eq.  (18)  is  satisfied  exactly,  indicating  that  the 
expression  for  strain  in  Eq .  (33)  meets  the  first  compatibility  require¬ 
ment  . 

For  use  in  the  computer  program,  Eq.  (33)  takes  the  form 


m  m 

U12y!3  ~  U13yl2 

A°  +  A1 


(35) 


and 


m  m 

V13X12  V12X13 


A  +  A 


(36) 


for  a  1-2-3  triangle,  where  the  doubly  subscripted  velocities  and 
coordinates  have  the  following  meaning 


u  .  .  =  u  .  -  u  . 

i  J 


(37) 


X™ .  =  x .  -  x .  +  1/2  (u .  -  u.)At 
iJ  i  J  i  j 


(38) 


The  above  result  is  extended  to  the  full  quadrilateral  by  using  the 
following  definition  of  the  strain  rate 


A0  0  ,  a1  1  I  . 0  0  .  .1  1 

Alulx  +  Vlx  +  A2u2x  +  A2u2x 

Aj  +  Aj  +  A°  + 


(39) 


where  subscript  1  refers  to  the  triangle  123  and  subscript  2  to  triangle 
134  in  Figure  6.  For  satisfying  Eq.  (18)  the  area  A  is  taken  as  one- 
half  the  denominator  in  Eq.  (39),  that  is,  the  average  of  the  areas  at 
the  beginning  and  end  of  the  time  increment. 

For  use  in  the  computer  program,  Eq.  (39)  is  recast  into  the 
following  form  with  the  aid  of  Eqs.  (27)  -  (31),  (37)  and  (38): 


Similarly 


m 


m 


U13y24  '  U24yl3 

A°  +  A1 


(40) 


m  m 

V24x13  ~  V13X24 

A°  +  A1 


(41) 


m  m  ,  m 

U24x13  '  u13x24  +  v13y24 


m 


V24y13 


xy 


2  (A°  +  A1) 


(42) 


m  m  ,  m 

unx9/,  ~  S/,xn  + 


m 


0) 


xy 


*13  24  ~  U24X13  *  V13y24  ~  V24y13 

2(A°  +  A1) 


(43) 


The  requirement  given  by  Eq.  (19)  is  met  somewhat  more  readily  in 
the  computer  program.  The  values  of  and  are  first  determined  from 
Eqs.  (40)  and  (41),  and  the  specific  volume  change  is  determined  from 
calculations  of  the  volume  before  and  after  a  time  step.  The  volume 
change  is  from  a  density  calculation,  which  is  in  turn  based  on  the 
mass  conservation  relations.  The  mass  of  an  axisymmetric  cell  is  computed 
from 


M 

s 


d6 

3 


I  A.  I 

.  l  . 

i  J 


2tt 

3 


E  A.  E  y.  . 

-i  i  .  ij 
i  l  J 


(44) 


29 


where  A_^  is  the  area  of  the  i^  triangle  in  the  xy  plane  and  y..  are 
the  radial  positions  of  the  vertices.  For  simplicity,  277/3  is  dropped 
in  the  program  and  the  mass  is  stored  in  the  Z  array  as 

3tt 

Z  =  ~~  M  (45) 

For  the  planar  cells,  the  mass  is  simply 


M  =  Z  =  pA  (46) 

xy  ' 

Then  during  strain  calculations,  the  density  is  determined  by 

P-f-  (47) 

xy 

for  example,  using  Eq.  (46).  The  relative  volume  change  required  in 
Eq.  (19)  is  then 


A V 
V 


-  P2) 
+  P2 


(48) 


where  and  p ^  ate  densities  before  and  after  the  current  time  increment. 

With  e  ,  e  ,  and  AV/V  known,  e  is  obtained  from  Eq.  (19),  and  the  volume 

y  z 

constraint  is  satisfied  exactly. 


3 . 3  Energy  Calculations 

The  internal  energy  is  computed  from  the  conservation  of  energy 
equation  at  two  points.  First,  an  approximate  estimate  is  made  just 
preceding  the  stress  calculation;  then  a  refined  value  is  obtained 
following  the  stress  calculation. 

The  conservation  of  energy  expresses  the  balance  between  internal 
energy  and  strain  energy: 


E 


E  +  V  £  a. .de. . 
°  ij  ^  ^ 


(49) 
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where  E,  -  internal  energies  at  the  end  and  beginning  of 

the  time  increment 

V  -  specific  volume 

a±y  Gij  **  tensor  stress  and  strain  values. 


In  the  TROTT  code,  the  first  internal  energy  calculation  immediately 
follows  the  determination  of  density  and  strain,  but  the  only  stresses 
available  are  those  from  the  previous  time  step.  In  the  computation, 
the  stresses  0^  are  separated  into  a  pressure  and  a  deviator  stress 
°'±y  with  the  introduction  of  the  artificial  viscous  stress  Q,  the 
computer  program  form  of  Eq .  (49)  is 


E 


E  +  V(o"  Ae  +  o'  Ae 
o  xxo  x  yyo  y 


-  (PQ  +  Q)(V  -  Vq) 


+  o'  Ae  +  2 a  Ae  ) 

zzo  z  xyo  xy 


(50) 


where  a  ,  P  ,  etc.,  are  stresses  and  pressures  from  the  previous  time 

XXO  o 

increment.  The  sign  convention  in  Eq .  (50)  reflects  the  fact  that 
stresses  and  strains  are  positive  in  tension,  but  pressures  are  positive 
in  compression. 

Following  the  stress  computation,  the  energy  computation  is  repeated, 
this  time  using  the  linear  approximation 


a . . .  +  a . . 

ijl  iqo 


Ae.  . 
ij 


o.  .de 
ij 


ij 


(51) 


where  is  stress  from  the  current  time.  Then  Eq .  (49)  becomes 


E  =  E  +  V 
o 


a  .  +  a 

xxl  XXO 


a  .  +  a  a  .  +  a 

ie  +  -yy1  yy°  ^  ,  zz°  ae 

x  2  y  2  z 


+  (a  +  a  )Ae 
xyl  xyo  xy 


P  +  P 


+  Q  j  (V  -  V  )  (52) 


31 


The  energy  approximation  in  Eq .  (50)  is  used  in  the  subsequent 
stress  calculation.  Normally,  this  energy  approximation  does  not  lead 
to  serious  errors  because  the  energies  are  changing  gradually  in  problems 
treated  with  TROTT .  Very  sharp  shock  fronts  at  high  stresses  would  not 
be  simulated  accurately  with  the  preceding  energy  calculation.  The 
energy  calculation  in  Eq .  (52)  is  used  to  obtain  the  energy,  which  is 
stored  in  the  cell  array  for  the  next  calculational  cycle. 

3.4  Artificial  Viscous  Stress 

An  artificial  viscous  stress  is  required  in  finite-difference  wave 
propagation  calculations  to  smooth  out  shock  waves  so  that  the  entire 
flow  field  can  be  treated  by  the  conservation  equations  of  continuous 
flow.  In  multidimensional  calculations,  a  triangular  artificial  viscous 
stress  is  also  required  to  combat  certain  types  of  cell  distortion.  Here 
we  describe  first  the  standard  artificial  viscosity  and  its  implementation 
in  the  code. 

The  artificial  viscous  stress  (Q)  is  added  to  the  thermodynamic 
equilibrium  stress  (a)  from  the  constitutive  relations  to  produce  the 
nonequilibrium  mechanical  stress  (T) .  The  mechanical  stress  is  therefore 
the  total  stress  acting  between  masses  and  is  the  appropriate  stress 
for  the  momentum  calculations  exhibited  earlier.  The  artificial  viscous 
stress  represents  real  stresses  occurring  in  the  nonequilibrium  states 
of  a  shock  front,  but  the  basis  for  computing  Q  is  artificial  because 
it  depends  on  the  computational  cell  size  and  on  viscosity  coefficients 
that  are  not  derived  from  physical  processes. 

In  TROTT  the  usual  linear  and  quadratic  forms  of  artificial 
viscosity  are  provided.  Both  are  related  to  the  rate  of  compression  of 
the  material  and  are  zero  while  the  material  is  extending.  For  positive 
density  changes,  the  linear  and  quadratic  stresses  are 


C  y/T 

s  xy 


Ap 

At 


(53) 
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(54) 


^2 


C  A  .  0 

.  .xy  /-Apn2 

p  ^At; 


where 


coefficient  of  linear  artificial  viscosity 


=  sound  speed 

CD  =  coefficient  of  quadratic  artificial  viscosity. 

The  artificial  stress  Q  is  the  sum  of  the  linear  and  quadratic  contribu¬ 
tions  from  Eqs .  (53)  and  (54). 

The  nominal  values  of  the  artificial  viscosity  coefficients  are 
C1  =  0.15 

C2  =  4.0 

O 

These  values  are  appropriate  for  most  problems.  If  sharper  definition 
of  shock  fronts  is  required,  could  be  reduced  to  as  low  as  0.05.  For 
more  rapid  smoothing  of  wave  fronts  for  quasi-static  problems,  could 
be  increased  to  0.5. 


The  triangular  artificial  viscous  stress  is  used  to  minimize  a 
type  of  cell  distortion  termed  hour-glassing  (shown  in  Figure  7).  Hour- 
glassing  is  a  parasitic  behavior  that  is  not  corrected  by  the  normal 
momentum,  strain,  and  constitutive  relations  previously  outlined.  The 
motion  shown  in  Figure  7  gives  rise  to  zero  values  of  e  ,  e  ,  and  e 

a-,  .  x  y  xy* 

Also,  stresses  in  the  cell  acting  on  the  coordinates  would  be  applied 
equally  to  all  four  coordinates  and  could  not  simultaneously  pull  inward 
on  points  1  and  2,  and  push  out  on  3  and  4  to  correct  the  behavior. 


The  hour  glassing  motion  in  quadrilateral  cells  represents  two 
additional  degrees  of  freedom  that  arise  because  of  the  averaging  process 
used  in  calculating  the  strains  (Section  3.2).  A  triangular  cell  does 
not  exhibit  hour-glassing  because  the  3  coordinate  points  have  just  six 
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FIGURE  7 


A  QUADRILATERAL  WITH  COORDINATE  VELOCITIES 
THAT  LEAD  TO  HOUR-GLASSING 
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degrees  of  freedom  that  can  be  represented  by  two  rigid  body  translations, 
one  rotation  (ta^)  and  three  strains.  The  quadrilateral  cell  has  eight 
degrees  of  freedom,  but  only  the  same  six  motions  and  strains  as  for  the 
triangular  cell  are  accounted  for  in  the  equations  that  provide  the 
resistance  to  the  motions.  The  triangular  artificial  viscosity  provides 
resistance  to  the  hour— glassing  motion  that  arises  because  of  the  extra 
degrees  of  freedom. 

The  triangular  artificial  viscosity  is  calculated  as  part  of  the 
momentum  relations  instead  of  with  the  other  stress  calculations.  These 
triangle  stresses  are  computed  as  a  function  of  the  distortion  of  the 
triangle  2-3-4  (Figure  5),  which  is  adjacent  to  point  3,  the  point  of 
focus  of  the  momentum  calculations.  From  the  strain  rates  in  this 
triangle,  the  following  stresses  are  computed  according  to  the  derivation 
of  Wilkins  (Ref.  1): 


Q. 


xx 


(55) 


(56) 


Q. 


■xy 


(57) 


where  T 


the  dimensionless  viscosity  coefficient 


q 


A  =  the  area  of  the  triangle 


C 


the  sound  speed 


s 


P 


density 


£x»  £y>  £xy  =  strain  rates  derived  as  in  Section  3.2  for  the 


triangle.  Equations  (55)  to  (57)  are  written  so  that  the  Q's  are 
proportional  to  the  appropriate  deviator  stress,  assuming  c  =  0. 
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The  triangle  QTs  are  added  into  the  force  equations  (8)  and  (9), 


to  obtain 


F 

x 


(T  +  Q  )A 
xy  Xxy  yy 


+ 


(T  +  Q  )A 
xx  xx  xx 


(58) 


for  Eq.  (8)  and  a  similar  result  for  Eq.  (9). 

Now  we  can  examine  how  the  triangle  Q  .works  to  inhibit  hour-glassing . 

These  stresses  are  computed  separately  for  each  of  the  near  triangles 

around  the  four  coordinate  points  in  Figure  7.  For  instance,  with  the 

velocity  configuration  in  Figure  7,  Q  is  tensile  at  points  1  and  2 

xx 

and  compressive  at  points  3  and  4.  Thus,  the  Q  forces  tend  to  counteract 
the  hour-glassing  motion.  With  a  coefficient  of  T  =  0.02,  a  velocity 
pattern  such  as  that  in  Figure  7  will  be  damped  out  in  about  25  time 
steps . 


3 . 5  Time  Step  Control 

For  the  calculations  to  proceed  in  a  stable  manner,  the  time 
increment  between  cycles  must  be  kept  smaller  than  that  given  by  the 
Courant-Friedrichs-Lewy  conditions  (Ref.  11).  In  this  criterion  the 
maximum  permitted  time  increment  is 


e 


where  Ax  =  the  minimum  cell  dimension 

=  the  local  effective  sound  speed 

In  the  computer  program,  the  criterion  in  Eq.  (59)  is  evaluated  in  five 
steps . 

(1)  Ax  is  computed  as  the  minimum  width  for  each  cell. 

(2)  An  effective  modulus  is  computed,  and  from  this  a 
local  sound  speed,  C^. 
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(3)  A  natural  time  step  At'  =  Ax/C'  is  computed  for  each  cell. 

(4)  The  minimum  of  all  the  time  steps  At ^  is  selected. 

(5)  The  minimum  time  step  is  adjusted  to  account  approximately 
for  the  triangle  artificial  viscosity. 


The  second  and  fifth  steps  are  described  in  more  detail  below. 

Here  the  effective  sound  speed  is  determined  by  summing  the  stiff¬ 
ness  from  all  factors  that  contribute  to  the  mechanical  stress.  The 
effective  modulus  for  the  time  increment  is  given  by  a  sum  of  ratios 
of  stress  increments  divided  by  the  strain  increments: 


M 

e 


AP  +  2Q 

_  M 

V 


+  max 


AeT 

i 


(60) 


where  P 

Q 

AV/V 

Aa' 

i 

Ae: 


the  change  in  pressure  during  the  increment 
the  artificial  viscous  stress 
the  relative  volume  change 

t  h 

the  change  in  deviator  stress  in  the  i  direction 
the  deviator  strain  increment  in  the  i ^  direction. 


The  second  term  on  the  right-hand  side  of  Eq.  (60)  is  taken  as  the 
maximum  value  in  the  three  principal  directions.  Because  the  maximum 
value  of  this  term  is  given  by  the  elastic  relation,  this  term  can  be 
replaced  by  4G/3,  where  G  is  the  shear  modulus.  The  factor  2  in  the  Q 
term  arises  because  Q  is  computed  at  the  half  time  step,  providing  twice 
the  stiffness  that  would  occur  if  Q  were  centered  at  the  full  time  step. 
Then  the  effective  sound  speed  for  the  cell  is 

.  2  Me  AP  +  2Q  4G 
(C  )  ~  V  ~  ~ V  +  3^  (61) 


37 


It  can  be  shown  (Ref.  12)  that  Eq.  (61)  exactly  represents  the  stability 
condition  derived  by  Herrmann  (Ref.  2)  for  linear  and  quadratic  artificial 
viscosity.  For  small  strains,  C'  is  taken  as  the  usual  longitudinal 
sound  speed. 

To  account  for  the  additional  stiffness  associated  with  the  triangle 
artificial  viscosity,  a  further  adjustment  is  made  in  the  time  step 
obtained  using  O'". 

An  approximate  adjustment  to  account  for  the  triangle  artificial 
viscosity  is  derived  by  noting  the  parallel  between  the  expressions  for 
the  triangle  Q  and  the  linear  viscous  term  (Eqs.  55-57  and  Eq.  53). 

The  adjustment  for  the  linear  viscosity  is  given  by  Herrmann  (Ref.  2) 
as 

At  =  —  [Vl  +  -  cp  (62) 

s 

Then  we  can  replace  CL  by  3T  (the  factor  of  3  occurs  because  2t  -  £ 

i  q  x  y 

in  Eq.  55  is  three  times  the  deviator  strain  rate)  and  neglect  the  T^ 

,  q 

term  because  T^  is  very  small.  The  final  form  of  Eq.  (59)  is  then 

Ax 

At  =  min  (^)(1  -  3Tq)  (63) 

This  time  step  includes  the  effects  of  bulk  stiffness,  shear  stiffness, 
and  the  three  artificial  visious  stiffnesses.  The  foregoing  equations 
are  used  in  TROTT  to  determine  the  permissible  time  increments. 

3 . 6  Slide  Lines 

A  preliminary  slide  line  capability  has  been  incorporated  into  TROTT 
to  permit  slip  of  one  material  past  another.  Although  several  slide  line 
problems  have  been  run  successfully,  the  coding  has  not  been  tested  on 
arbitrarily  complex  problems.  No  opening  and  closing  routine  is  present, 
no  shear  is  transmitted  across  the  slide  line,  and  the  lines  are  active 
from  the  beginning  of  the  calculation  (no  provision  for  unzipping  during 
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the  calculation).  Sliding  can  occur  along  lines  of  constant  K  or  J  but 
not  along  both  simultaneously. 

For  a  slide  line  between  cells,  two  rows  of  coordinates  are  provided, 
one  set  for  cells  on  either  side.  One  side  is  designated  the  master  and 
the  other  the  slave  side.  The  slave  coordinate  points  are  required  to 
slide  along  the  master  cell  boundaries,  and  need  not  coincide  with  the 
master  coordinate  points  at  any  time.  Because  the  slide  line  shape  is 
determined  by  the  master  cells,  the  master  side  should  be  the  material 
with  the  higher  shear  modulus  and/or  higher ■ density .  The  forces  for  the 
momentum  computations  are  computed  from  the  stresses  in  both  master  and 
slave  cells  to  determine  the  new  velocities  of  the  master  coordinates. 

Only  the  forces  on  the  slave  side  are  used  to  move  the  slave  coordinates, 
but  then  the  slave,  coordinate  positions  are  adjusted  to  avoid  penetration 
of  the  master  cells.  This  adjustment  is  made  without  testing  for  momentum 
conservation,  so  there  may  be  some  momentum  loss  along  the  slide  line. 

The  K-slide  treatment  is  designed  to  handle  a  slide  along  a  line  of 
nearly  constant  X,  so  the  slave-side  coordinate  adjustments  are  of  the  X 
position  only.  The  master  coordinates  are  along  K  =  KSLIDE  -  1  and  the 
slave  coordinates  are  along  K  =  KSLIDE,  where  KSLIDE  is  an  input  quantity. 
The  J-slide  case  is  for  sliding  along  a  line  of  nearly  constant  Y  or 
radius;  adjustments  are  made  in  the  Y  position  only.  The  master  coordinates 
are  along  J  =  JSLIDE  and  the  slave  coordinates  are  along  J  =  JSLIDE  -  1, 
where  JSLIDE  is  an  input  quantity.  Input  information  for  the  slide  lines 
is  provided  in  Section  5  and  Appendix  C. 
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4.  MATERIAL  MODELS 


The  material  models  provide  the  stress  as  a  function  of  density, 
strains,  internal  energy,  and  other  quantities.  This  section  describes 
common  material  models  or  constitutive  relations  in  SWEEPT.  If  other 
models  are  required,  they  are  written  as  subroutines  and  called  by 
SWEEPT  for  stress  computations.  The  switching  procedure  used  to  select 
the  appropriate  model  is  also  described  below. 

4 . 1  Standard  Constitutive  Models 

In  the  standard  material  models,  the  stress  tensor  is  separated 
into  a  pressure  and  a  deviator  tensor.  The  pressure  is  the  average 
stress 


P  =  j  E  o±i  (64) 

i 

and  the  stress  deviator  elements  are 

o' .  =  o .  (65) 

ij  ij  iJ 

where  O..  are  stress  tensor  elements  and  6..  is  the  Kronecker  delta, 
ij  ij 

The  pressure  is  usually  given  as  a  function  of  density  and  internal 
energy.  The  deviator  stress  is  computed  by  elastic-plastic  relations, 
which  may  include  thermal  softening,  rate-dependent  effects,  and  work 
hardening.  Since  TROTT  is  intended  primarily  for  mechanical  problems 
at  stress  levels  common  in  engineering  structures,  the  standard  pressure 
model  does  not  include  melting  and  vaporization,  and  the  deviator  model 
does  not  include  thermal  softening.  However,  these  effects  could  be 
added  in  special  material  models  subroutines.  The  standard  pressure  and 
deviator  models  are  presented  below. 
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4.1.1  Standard  Pressure  Model 


The  pressure  is  computed  from  a  simplified  form  of  an  equation  of 
state,  the  locus  of  all  possible  thermodynamic  equilibrium  states  for 
a  substance.  Each  state  is  a  set  of  values  of  the  thermodynamic 
quantities:  stress  tensor,  specific  volume,  entropy,  specific  internal 

energy,  and  temperature.  In  the  simplified  equation  of  state  used  in 
TROTT  and  in  most  wave  propagation  codes,  the  only  variables  considered 
are  pressure  (P)  (the  deviator  components  of  stress  are  treated  separately), 
specific  volume  (V)  or  density  (p  =  1/V) ,  and  internal  energy  (E) .  The 
equation  of  state  is  then 


P  =  P(E,V)  (66) 

which  defines  a  surface  or  locus  of  points  in  energy-pr essure-volume 
space . 

An  equation  of  state  represents  equilibrium  states.  Therefore, 
as  a  material  undergoes  gradual  changes,  such  as  heating  or  compression, 
the  successive  states  describe  a  path  on  the  equation-of-state  surface. 
If  the  material  is  compressed  by  passing  through  a  steady-state  shock 
front,  the  initial  and  final  states  lie  on  the  P-V-E  surface.  These 
initial  and  final  states  are  connected  by  a  straight  line,  the  Rayleigh 
line,  which  does  not  lie  on  the  surface,  but  above  the  P-V-E  surface. 
Generally,  equations  of  state  describe  the  material  behavior  in  solid, 
liquid,  and  gaseous  phases,  but  the  pressure  model  in  TROTT  represents 
only  solid  states. 

The  Mie-Gruneisen  equation  is  used  in  TROTT  to  determine  the 
pressure . 


P 


’REF 


+ 


REF 


(67) 
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where 


P  F 

REF,  REF 


=  coordinates  of  a  point  on  some  reference  curve 
at  the  same  specific  volume  V 


F  =  the  Griineisen  ratio. 


This  expression  provides  a  means  for  extending  the  information  of  a 
known  P-V  relationship  (such  as  the  Hugoniot) to  other  values  of  internal 
energy.  Because  the  Hugoniot  is  the  P-V  relation  that  is  most  likely 
to  be  known,  the  computations  are  constructed  with  the  Hugoniot  as  the 
reference  curve.  (The  Hugoniot  curve  used  here  is  the  locus  of  final 
pressure,  energy,  and  volume  points  reached  by  a  shock  front  traveling 
into  material  under  standard  pressure  and  temperature  conditions.)  The 
Hugoniot  P-V  equation  is  presumed  to  be  in  the  form 


PR  =  Cy  +  Dy2  +  Sy3  (68) 

where 


PQ  »  Vq  =  the  initial  solid  density  and  specific  volume 
C,D,S,  =  coefficients  with  the  dimensions  of  pressure 
C  =  the  bulk  modulus  at  low  pressures. 

The  internal  energy  along  the  Hugoniot  is 


■  2  PH(Vo  -  V> 


(69) 


Here  the  initial  internal  energy  is  assumed  to  be  zero  and  the  Hugoniot 
is  concave  upward  throughout  so  that  the  shock  follows  a  single  Rayleigh 
line.  Combining  Eqs .  (67)  through  (69)  provides  the  pressure  relation 
used  in  the  computer  program 

P  =  (Cy  +  Dy2  +  Sy3)  (1  -  Ty/2)  +  TpE  (70) 
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This  calculation  is  performed  following  the  density  and  strain  computation 
and  the  approximate  evaluation  of  E  from  Eq.  (50). 


4.1.2  Standard  Deviator  Stress  Model 


The  deviator  stress  is  the  part  of  the  stress  tensor  that  arises 
because  of  the  material’s  resistance  to  shearing  deformation.  In  TROTT 
the  standard  model  for  deviator  stress  accounts  for  elastic  response  and 
plastic  flow  according  to  perfect  plasticity.  Here  the  relations  are 
developed  in  a  general  form  applicable  to  planar  or  ax i symmetric  flow. 


Elastic  Relations.  The  elastic  relations  between  deviator  stress 
and  strain  are  cast  in  the  following  form 


o' . 
i  3 


2G(eE. 

13 


o  Ze"  ) 
3  11 


(71) 


(72) 


where 


o'.  .  =  the  deviator  stress 

13 

E  'V 

-  total  and  deviatoric  elastic  strains 
6..  =  the  Kronecker  delta. 

13 


The  deviator  strain  is  defined  as  follows  (as  noted  by  comparing  Eqs .  71 
and  72) : 


(73) 


In  elastic  problems,  all  the  strain  is  elastic,  but  in  plastic  cases, 
the  total  strain  is  separated  into  elastic  and  plastic  components. 


E  P 

de.  .  =  de.  .  +  de. 

!3  i 3  ij 


(74) 
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Plastic  Relations.  The  Reuss  or  incremental  plasticity  relations 
are  considered  here.  Yield  occurs  when  the  effective  stress  reaches 
the  yield  strength.  The  effective  stress  is  defined  by 


a 


o' .o' . 

11  ij 


(75) 


where  the  repeated  subscripts  indicate  summation.  The  yield  criterion 
is  simply 


O  =  Y 


(76) 


where  Y  is  the  yield  strength.  The  Reuss  flow  rule  indicates  that 
the  deviator  stress  in  any  direction  is  proportional  to  the  plastic 
strain  in  that  direction: 


j 

deP.  =  oC.dA 
iJ  i  J 


(77) 


where  dA  is  a  proportionality  constant.  Now  Hill  (Ref.  13)  defines 
a  scalar  plastic  strain  quantity  as  follows: 


dip 


2J  P  .  P 
■^de .  .de .  . 
3  ij  ij 


(78) 


As  before,  the  repeated  subscripts  indicate  summation.  When  we  square 
Eq.  (77)  and  make  use  of  the  definitions  of  o  and  deP,  then 


and 


qj-P 
..  3de 

°ij  2o 


(79) 


(80) 


To  obtain  a  solution  for  an  increment  of  strain,  we  compute  first  a 
nominal  stress  o'  that  would  occur  if  the  strain  were  entirely  elastic. 
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where 


AeT.,  Ae^?,  Ae.? 
ij  ij  ij 


elastic  strains  before  and  after  the  current 
strain  increment 

total,  elastic,  and  plastic  strain  increments. 


Through  the  use  of  Eqs.  (72)  and  (80),  the  strains  in  the  third  equation 
of  (81)  can  be  replaced  by  expressions  in  o' , • 


(82) 


Note  that  by  using  Eq.  (80)  we  are  relating  the  plastic  strain  increment 
to  the  stress  a at  the  end  of  the  time  step  instead  of  to  the  average 
stress  over  the  step.  This  approximation  is  satisfactory  for  small 

changes  in  stress  direction.  If  both  sides  of  Eq .  (82)  are  squared  and 

-N 

terms  are  summed  to  form  a  quantity  a  in  analogy  to  the  definition  of 
0  in  Eq.  (75),  then  we  obtain 


-N 

a 


a 


3G  AeP 


(83) 


Combining  Eqs.  (82)  and  (83)  and  using  the  yield  condition  (76),  gives 

a  solution  for  o' . . 

ij 


a.  . 

ij 


(84) 


The  elastic  strain  can  be  found  from  o' .  and  the  effective  plastic 

ij 

strain  is  obtained  from  Eq.  (83)  with  o  =  Y. 


4 . 2  Switching  for  Complex  Material  Models 


Constitutive  or  material  models  may  take  many  forms  besides  the 
standard  types  presented  above.  Some  of  the  available  nonstandard 
models  are  introduced  here  and  the  portion  of  SWEEPT  calling  them  in 
the  code  is  described.  Procedures  for  inserting  new  models  are  described 
in  Appendix  A. 

Our  work  in  porous  materials,  fracture,  composites,  and  explosives 
has  led  us  to  require  the  use  of  very  general  material  models.  TROTT 
and  SRI  PUFF  models  were  constructed  to  reflect  these  requirements. 

For  example,  in  fracture  calculations  it  should  be  possible  to  treat 
the  material  with  a  continuum  model  up  to  incipient  fracture  and  then 
transfer  to  a  fracture  model.  Composites  should  be  simulated  either  by 
a  single  model  or  by  a  combination  of  models  representing  the  constituents. 
If  pressure  and  deviator  stresses  are  treated  separately  for  the  material, 
then  it  should  be  possible  to  combine  any  pressure  model  with  any  deviator 
model.  These  general  requirements  have  been  followed  in  setting  up 
model  types . 

At  present  five  model  types  are  accounted  for  in  TROTT: 

•  Composite,  for  multiconstituent  materials.  Total  stresses 
are  computed. 

•  Fracture.  The  models  are  called  after  a  criterion  is 
reached  showing  that  fracture  has  begun.  Total  stresses 
are  computed. 

•  Porous.  Either  total  stress  or  pressure  is  computed, 
depending  on  the  model.  At  consolidation,  transfer  may 
occur  to  a  continuum  model. 

•  Deviator.  Only  deviator  stresses  are  computed,  so  one  of 
these  models  is  used  in  conjunction  with  a  pressure  model. 

•  Pressure.  Only  pressure  is  computed.  Explosives  are 
treated  under  this  type. 

The  subroutine  SWEEPT  was  constructed  to  serve  as  a  switch  between 
the  various  subroutines  computing  pressure,  deviator  stress,  and  total 
stress.  The  flow  chart  in  Figure  8  emphasizes  these  stress-switching 
features.  The  material  models  that  are  currently  available  are  listed 
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Calculate  new  velocities  for 
quadrilateral  and  triangular  cells. 


Calculate  strains  and  new 
density. 


Compute  the  artificial  viscosity 
and  the  first  estimate  of  the 
internal  energy. 


Call  the  REBAR  composite 
model. 


Call  the  CAP1  plasticity  model 
for  geologic  materials. 


Call  the  ductile  fracture  model 
if  the  threshold  pressure  is 
exceeded 


Call  the  brittle  fracture  model  if 
the  stress  threshold  is  exceeded. 


Call  the  shear  banding  model. 

Call  the  static  ductile  fracture 
model. 


MA-6802-19 


FIGURE  8  FLOW  CHART  FOR  SWEEPT  EMPHASIZING  THE  PROCEDURE 
FOR  SWITCHING  BETWEEN  MATERIAL  MODELS 
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Call  EXPLODE  to  compute 
pressure  and  energy  in 
explosive  gases 

Compute  pressure  from 
the  Mie-Gruneisen  equation 
of  state 


Compute  deviator  stress  from 
and  elastic,  perfectly  plastic 
model 


Recompute  internal  energy 
based  on  the  latest  values 
of  stress 


Compute  total  stresses  from 
pressures,  deviators  and 
artificial  viscosity 


Check  for  spall  in  the  x  or  y 
directions.  Reset  the  stresses 
if  spall  has  occurred 


Compute  the  sound  speed  and 
permissible  time  step 


Print  an  edit  and  store 
for  the  historical  listings 


MA-6802-20 


FIGURE  8  FLOW  CHART  FOR  SWEEPT  EMPHASIZING  THE  PROCEDURE 
FOR  SWITCHING  BETWEEN  MATERIAL  MODELS  (Concluded) 
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in  the  figure  and  in  Section  2.  The  list  in  Section  2  also  shows  where 
to  find  more  information  about  each  model.  The  large  library  of  material 
models  associated  with  the  SRI  PUFF  8  program  may  be  readily  added  to 
TROTT.  In  fact,  of  the  material  model  subroutines  now  in  TROTT,  only 
EXPLODE  differs  from  the  corresponding  routine  in  PUFF. 

4 . 3  Spall  Calculations 

In  two-dimensional  calculations  it  may  be  necessary  to  permit  layers 
of  materials  to  separate  during  the  calculation.  An  approximate  repre¬ 
sentation  of  such  separation  is  provided  by  allowing  the  stress  in  the 
cells  along  one  side  of  the  spall  or  separation  line  to  reduce  to  zero 
in  a  direction  normal  to  the  spall  line.  Such  a  separation  procedure 
is  provided  in  TROTT. 

Spall  is  provided  for  in  a  cell  by  representing  the  material  in 
the  cell  with  a  fracture  model,  labeled  by  the  indicator  NFR. 

NFR  =  5  spall  is  the  x  or  axial  distance 

=  6  spall  in  the  y  or  radial  direction 

Spall  is  not  permitted  in  both  directions  at  once.  The  tensile  strength 
(positive)  is  read  into  the  TSR  array  as  TSR(M,1)  during  reading  of  the 
material  property  data. 

The  spall  calculations  follow  the  determination  of  stress  from  the 

usual  stress-strain  relations  and  construction  of  the  total  stress 

quantities  T  ,  T  ,  T  ,  and  T  .  First  the  possibility  of  spall  is 
n  xx  yy  zz  xy 

checked  by  comparing  either  T^  or  T  (as  indicated  by  NFR)  with  the 
spall  strength.  If  the  tensile  stress  exceeds  the  strength,  spall  occurs. 
For  this  analysis,  we  assume  that  the  tensile  stresses  were  T^,  T ^ > 

T^,  and  Tj^  and  that  the  spall  is  in  the  first  direction.  To  produce 
the  spalled  state,  we  apply  a  compressive  stress  of  T  =  -  T^  in  the 
first  direction.  The  conditions  of  the  spall  are  like  those  in  a 
uniaxial  strain  test,  because  strain  occurs  only  in  the  first  direction. 
Hence  the  pressure  and  deviator  stress  changes  in  the  spall  direction  are 
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AP 


C 


(85) 


4 

C  + 


AcT  =  ---t-T  (86) 

C  +  -G 

As  usual  the  deviators  in  the  other  directions  are 

A022  '  Ao33  ‘  -|AC,11  <87) 

Finally,  the  residual  stress  state  is  obtained  by  adding  the  effects  of 
this  recompression  in  the  spall  direction  to  the  existing  stresses. 


T  T  +  T  =  0 

11  lll 


T22  T22  +  AP  +  Aa22 


T33  *  T33  +  AP  +  Aa33 


(88) 


and  the  shear  stress  is  set  to  zero.  The  separation  calculation  is 

repeated  at  each  cycle  so  that  recombination  is  permitted  at  any  time. 
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5 .  INITIALIZATION 


The  LAYOUTT  subroutine  is  called  at  the  beginning  of  each  problem 
to  read  in  all  data  and  initialize  the  variables.  The  sequence  of 
operations  in  LAYOUTT  is 

•  Fill  the  array  storage  with  initial  values,  usually  zero. 

•  Read  the  general  running  and  printing  instructions  for 
the  problem. 

•  Read  properties  for  each  material. 

•  Read  the  grid  layout  data  and  construct  the  layout  by 
initializing  all  array  storage. 

•  Print  the  initial  layout. 

This  section  describes  the  general  rules  governing  input  and  derives 
the  equations  for  the  layout.  Several  sample  input  decks  are  shown  in 
Appendix  C.  All  input  information  follows  these  guidelines: 


•  Each  card  or  group  of  cards  is  labeled  for  ease  of 
identification.  For  example,  equation-of-state  lines 
begin  with  the  identifier  "EQST  =  ".  In  most  cases 
the  identifier  is  optional  and  only  aids  the  user  in 
keeping  the  data  in  order. 

9  Each  input  line  is  read  and  then  printed  immediately  in 
the  same  format  (echo  printing)  so  that  the  first  page 
of  printout  looks  like  the  input  deck. 

•  The  minimum  amount  of  data  is  used  for  each  problem.  For 
example,  the  required  data  for  a  material  are  contained 
on  just  two  lines.  On  the  first  line  are  indicators  that 
show  whether  more  lines  are  required  because  of  special 
models  used  for  the  material. 


The  following  subsections  decribe  three  sets  of  data  cards  that  are 
used  for  each  problem:  general  running  data,  materials  data,  and  grid 
layout.  A  sample  of  a  complete  input  deck  is  shown  in  Figure  9. 
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FIGURE  9  SAMPLE  INPUT  DECK  FOR  CONCRETE  IMPACT 
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5 . 1  Input  of  General  Running  Controls 


The  first  set  of  data  identifies  the  computation  and  determine  the 
length  of  the  computation,  the  printing  during  and  following  the  compu¬ 
tation,  the  number  of  materials,  and  the  overall  geometry  of  the  problem. 

The  second  line  contains  NS TART,  NPLOT,  NDUMP ,  IMAX,  IPRINT,  JPRINT, 
NEXED,  and  NOBLQ.  NSTART  is  the  file  number  for  restarting  .and  is  zero  for 
a  new  problem  (see  Section  5.4).  NPLOT  is  the  frequency  in  cycles  for 
writing  a  file  containing  data  for  an  x,y  plot.  NDUMP  is  the  frequency 
in  cycles  for  writing  a  restart  dump  (see  Section  5.4).  IMAX  is  the 
maximum  number  of  cycles  permitted.  IPRINT  is  the  frequency  in  cycles 
for  printing  an  edit  or  for  listing  the  current  status  of  major  variables 
for  each  cell  and  coordinate.  JPRINT  is  the  number  of  special  groups  of 
edits  required.  For  each  group  there  is  a  JP1  and  JP2 ,  the  cycles  at 
which  edits  will  begin  and  end.  Within  the  range  of  each  group,  edits 
are  printed  at  each  cycle.  JPRINT  is  used  mainly  to  study  difficulties 
that  arise  late  in  a  computation.  NEXED  indicates  the  frequency  of  extra 
edits  listing  all  the  cell  variables  not  normally  listed  in  an  edit. 

NOBLQ  is  an  indicator  for  an  impact  of  a  block  onto  a  smooth,  nonmoving 
boundary  (used  for  oblique  ballistic  impacts).  If  NOBLQ  is  nonzero,  the 
angle  of  the  boundary,  ANGLE,  is  read  on  a  line  between  the  usual  second 
and  third  lines . 

The  third  line  contains  IJBUND,  NBLOCK,  NMTRLS ,  NJED,  IPRIND  and 
NEXTRA.  IJBUND  determines  the  geometry  and  boundary  conditions  as 
shown  in  Table  1.  The  grid  layout  information  is  inserted  in  the  form 
of  NBLOCKS  of  data,  each  block  describing- a  quadrilateral  in  X,Y,  space. 

The  number  of  materials  is  NMTRLS.  The  number  of  historical  listings 
requested  in  NJED.  IPRIND  indicates  a  request  for  the  special  print 
options,  KSKIP ,  KFULL ,  KPMAX,  KPMIN ,  JPMAX,  and  JPMIN,  which  limit  the 
amount  of  printing  in  edits.  A  nonzero  NEXTRA  calls  for  a  special  input 
of  data  through  the  EXTRAT  subroutine.  If  indicated,  EXTRAT  is  called 
twice:  at  the  end  of  reading  the  material  data  and  just  before  the 

layout  listing. 
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Table  1 


DEFINITIONS  OF  IJBUND  AND  IVTYPE 

-  IJBUND  - 


_ Geometry 

Axisymmetric 


Planar 


Boundary 


Conditions 


* 


1 

2 

4 

5 
9 


-1  Fixed  y  velocity  at  J=Jmin  and  Jmax 

“2  Fixed  y  velocity  at  J=Jmin  only 

-3  All  edges  free 

“4  Fixed  y  velocity  at  J=Jmin, 

x  velocity  at  K=Kmin  and  Kmax 

“5  Fixed  y  velocity  at  J=Jmin  and  Jmax, 

x  velocity  at  K=Kmin 

“9  Special  boundary  conditions  specifier 

by  the  user  as  described  in  Appen¬ 
dix  G. 


Notes:  Positive  values  of  IJBUND  denote  an  axisymmetric 

geometry  with  x  axial,  y  radial,  and  z  circumferential. 
Negative  IJBUND  values  denote  a  plane  strain  geometry 
with  x  and  y  in  the  plane  and  z  in  third  (zero  strain) 
direction. 


-  IVTYPE  - 


Value  _ _  Meaning 


No  velocity  initialization 

Velocity  is  initialized  for  all  J  up  to  K  = 

KU  with  an  interface  condition  at  K  =  KU 

Velocity  is  initialized  in  NVBLK  quadilateral 
blocks . 

Velocity  is  initialized  for  all  J  and  from 
K  =  KU  to  Kmax.  The  interface  condition  is 
at  KU. 


All  minimum  and  maximum  values  not  mentioned  are  free. 
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The  fourth  line  contains  the  problem  stop  time  TS,  the  velocity  indi¬ 
cators  IVTYPE  and  NVBLK,  and  KCHEK .  IVTYPE  is  defined  in  Table  1.  NVBLK 
is  the  number  of  quadrilateral  blocks  used  in  the  velocity  initialization 
for  IVTYPE  *  2.  Initial  wave  propagation  calculations  are  made  from 
K  =  1  to  KCHEK,  instead  of  from  1  to  KMAX. 

The  fifth  line  contains  the  coefficients  for  the  quadratic,  linear, 
and  the  triangular  artificial  viscosities:  CQSQ,  CLIN,  and  TRIQ. 

The  sixth  line  contains  slide  line  controls  (KSLIDE  and  JSLIDE) ,  a 
special  boundary  condition  indicator  (NBND) ,  and  an  indicator  (ICAL)  for 
the  units  used  in  printing  the  IPRINT  listings.  KSLIDE  and  JSLIDE  deter¬ 
mine  the  location  of  slide  lines  —  only  one  can  be  nonzero.  NBND  is  the 
number  of  special  boundary  conditions.  For  NBND  nonzero,  NBND  lines  are 
read  in  next  containing  the  special  boundary  data:  IBDK1,  IBDK2,  IBDJ1, 
IBDJ2 ,  IBDX,  IBDY,  XF IX , and  YF IX .  These  parameters  and  the  special 
boundary  conditions  are  described  in  Appendix  G.  A  nonzero  value  of  ICAL 
calls  for  reading  two  lines  containing  calibration  information  for  the 
IPRINT  listings.  These  additional  lines  contain  the  alphanumeric  para¬ 
meters  LISTE,  LISTS,  LISTX,  and  LISTXD  and  the  constants  CALE,  CALS,  CALX 
and  CALXD ,  which  are  defined  in  Table  2.  Each  of  these  parameters  is 
initialized  in  LAYOUTT  with  the  value  given  in  the  table.  If  the  user 
wishes  different  units,  he  should  set  ICAL  to  one,  and  read  in  the  neces¬ 
sary  lines.  For  example,  to  use  kbar  as  the  stress  unit,  LISTS  is  read 
in  as  KBARj  and  CALS  is  set  to  l.E-9.  (The  internal  units  of  the  code  are 
dyne,  centimeter,  gram  and  second.) 

For  nonzero  values  of  JPRINT,  the  next  line  is  a  special  line  con¬ 
taining  JP1  and  JP2  values. 

The  next  input  lines  contain  the  detailed  requests  for  historical 
listings  of  specific  variables.  Each  request  is  composed  of  three 
integers  labeled  JEDT(I),  JEDK(I) ,  and  JEDJ(I).  JEDT  is  the  type  of 
variable,  whereas  JEDK  and  JEDJ  are  the  K,J  locations  of  the  cell  or 
coordinate.  The  types  are  defined  in  Table  3  along  with  some  sample 
input.  The  type  number  is  used  in  SWEEPT  to  obtain  the  required  variable 
from  the  COM  array.  For  the  standard  variables,  the  type  number  can  be 
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obtained  from  the  equivalence  statement  for  the  COM  array.  For  other 
variables,  see  the  discussion  of  NVAR  and  COM  in  Appendix  B.  The  JED 
variables  must  be  read  in  the  order  in  which  the  K,J  coordinates  will 
be  encountered  in  the  calculation:  JEDT,  JEDK,  and  JEDJ  groups  must  be 
in  order  of  increasing  JEDK,  and  for  groups  with  the  same  JEDK,  and  the 
JEDJ  must  be  in  increasing  order.  For  the  same  JEDK  and  JEDJ  values, 
groups  with  different  JEDT  can  be  in  any  order. 

If  IPRIND  is  nonzero,  a  special  print-control  line  is  read  at 
this  point,  completing  the  input  of  general ' running  data. 

5 . 2  Material  Properties 

Each  material  is  described  by  data  on  a  series  of  lines  following 
the  general  running  information.  These  lines  contain 

1.  Material  name,  solid  density,  a  series  of  flags  (NCMP, 

NFR,  NPOR,  NDS ,  NPR,  NYAM) ,  NVAR,  and  NTRI . 

2.  Solid  equation-of-state  parameters:  EQSTC,  EQSTD,  EQSTE, 

EQSTG,  EQSTH,  EQSTS,  and  PMIN. 

3.  Special  data  required  for  composite,  fracture,  porous, 
deviator,  or  pressure  models. 

4.  Yield  data  (yield  strength,  shear  modulus,  and  work¬ 
hardening  modulus)  read  in  for  nonzero  values  of  NYAM. 

The  parameters  mentioned  above  are  all  defined  in  the  Glossary,  Appendix 
F.  The  flags  NCMP  to  NPR  show  what  data  are  required  in  the  lines  under 
item  3.  NYAM  controls  the  reading  of  item  4.  NVAR  is  the  number  of 
extra  variables  required  in  addition  to  the  standard  17  (the  first  17 
listed  in  Table  3) .  For  example,  a  material  with  a  yield  model  requires 
NVAR  =  2.  NVAR  is  described  further  in  Appendix  B.  NTRI  is  a  flag 
indicating  that  all  quadrilaterial  cells  of  the  material  are  to  be 
divided  into  triangles. 

The  input  for  the  special  models  takes  different  forms  depending 
on  the  model.  Section  2  lists  references  to  the  descriptions  of  each 
special  model. 
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Table  2 


CONVERSION  OF  UNITS  FOR  IPRINT  LISTINGS 


Parameter 

Initialized  Value 

Quantity  Affected 

Internal  Units 

CALE 

l.E-7 

internal  energy 

erg/g 

CALS 

l.E-7 

stress,  pressure 

dyn/ cm^ 

CALX 

1. 

X,  Y  location 

cm 

CALXD 

l.E-2 

velocity 

cm/ sec 

LISTE 

KJ/KG 

internal  energy 

LISTS 

MPA 

stress,  pressure 

LISTX 

CM 

X,  Y  location 

LISTXD 

M/SEC 

velocity 
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Table  3 


JEDT  Value 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 
19 

L 

-45 


-46 

-47 

-48 

-49 

-50 

-51 

-52 


TYPE  DESIGNATIONS  FOR  HISTORICAL  LISTINGS 


Variable 


X,  Eulerian  axial  position 

Y,  Eulerian  radial  position 
XD,  X  or  axial  velocity 

YD,  Y  or  radial  velocity 

Variable  location  for  triangular  cells 

A,  cell  area  in  the  x-y  plane 

Z,  cell  mass  (constant) 

D,  cell  density 

SXX,  deviator  stress  in  the  x  direction 

SYY ,  deviator  stress  in  the  y  direction 

SZZ,  deviator  stress  in  the  z  direction 

TXY,  shear  stress  on  the  xy  plane 

TXX,  total  mechanical  stress  in  the  x  direction 

TYY,  total  mechanical  stress  in  the  y  direction 

TZZ,  total  mechanical  stress  in  the  z  direction 

P,  pressure 

E,  internal  energy 
H,  indicator 

YY,  yield  strength 


COM(L) ,  extra  variable 


V2/9^( 


r  /  \2 

/  \  2 

/  \2 

2  1 

(e  -  e  i  + 

e  -  e  )  + 

(e  -  e  ) 

+  6e 

L\  x  y/ 

\  y  z/ 

\  x  z  / 

xyj 

a  scalar  deviator  strain 


Z  EXXH,  cumulative  strain  in  the  x  direction 

E  EYYH,  cumulative  strain  in  the  y  direction 

E  EZZH,  cumulative  strain  in  the  z  direction 

E  EXYH,  cumulative  strain  in  the  xy  direction 

Q,  artificial  viscosity 

SXX-P,  thermodynamic  stress  in  the  x  direction 
SYY-P,  thermodynamic  stress  in  the  y  direction 
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Table  3  (Concluded) 


JEDT  Value 


Variable 


-53  SZZ-P,  thermodynamic  stress  in  the  z  direction 

-54  Force  in  the  x  direction  at  the  K-th  row 

-55  -2  In  (Y^  Jmax/Yo) ,  an  areal  strain  for  axisymmetric 

problems 

Sample  Input: 

* 


T  K 

J 

T  K 

J 

T  K 

J 

T  K  J 

T  K 

J 

T  K 

J 

T  K  J 

CM 

00 

5 

13  2 

5 

51  2 

5 

8  2  7 

13  2 

7 

8  3 

4 

13  3  4 

8  3 

6 

13  3 

6 

13  5 

2 

8  5  2 

812 

5 

1512 

5 

151213 

1413 

2 

1413 

6 

1524 

2 

1424  2 

* 

The  labels  T  K  J  indicate  JEDT,  JEDK  and  JEDJ.  This  label  line  is 
not  included  in  input. 
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I - - - ►  x 

MA-6802-21 

FIGURE  10  A  QUADRILATERAL  BLOCK  OF  CELLS  USED  IN  THE  GRID  LAYOUT 
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5 .3  Grid  Layout  and  Velocity  Initialization 


The  grid  for  the  computations  is  entirely  laid  out  in  quadrilateral 
blocks.  For  each  block  the  J,  K,  x,  and  y  values  are  provided  for  the 
four  corner  points,  and  the  material  number  in  the  cells  is  designated. 
The  information  is  provided  on  two  input  lines  as  follows: 


K1,  K2, 

V 

x2. 

V 

x4,  MAT 

df  5  J 2  9 

yi* 

y2> 

y3, 

y4 

The  J  and  K  values  are  Lagrangian  coordinate  numbers  as  shown  in  Figure 
10.  The  Euler ian  coordinates  x  and  y  of  the  four  corners  are  inserted 
in  the  counterclockwise  order  for  all  cells  in  the  block.  From  this 
input,  the  intermediate  x  and  y  coordinate  points  are  computed  from  the 
expression 

[xx(J2  -  J)  +  x4(J  -  J1)]  (K2  -  K)  +  [x2(J2  -  J)  +  x3(J  -  jp  ]  (K  -  K1) 

(J2  -  J1)  (K2  -  K p  ' 

(89) 

and  a  similar  one  for  y  .  In  the  resulting  grid,  all  lines  are 

K ,  J 

straight  and  the  increments  of  x  (or  y)  are  equal  along  any  line. 

The  velocities  can  be  initialized  either  by  designating  a  single 

velocity  x  for  the  moving  portion  of  the  object  or  by  designating  blocks 

as  in  the  grid  layout.  For  the  single  velocity  layout,  the  required 

information  is  J  ,  K  ,  and  U  ,  where  J  is  usually  the  largest  J  value 
u  u  z  u  G 

(outer  radial  boundary  of  the  moving  object),  and  is  the  K  value  at 

the  interface  between  moving  and  nonmoving  parts  of  the  object.  For 

IVTYPE  =  1,  x  velocities  are  initialized  to  U  for  K  >  K  ;  and  for 

z  u 

IVTYPE  =  -1,  x  =  U  for  K  <  K  .  Along  the  interface  K  =  K  ,  the  velocity 
z  u  °  u  J 

x  is  initialized  to  a  value  that  preserves  the  total  momentum  approx¬ 
imately.  For  this  computation,  we  obtain  the  sum  Mp  of  the  masses  in 
the  projectile  cells  (from  J  =  2  to  J  )  along  the  interface  and  the 


x. 


K,  J 
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mass  of  the  corresponding  cells  along  the  target.  Then  the  inter¬ 
face  velocity  x  initialized  along  K  =  K  is 

u 


Uint 


u 

z 


M 

P 


M 

J- 

+  ^ 


(90) 


If  cells  are  properly  matched  across  the  interface  so  that  the  crossing 
time  of  cells  are  equal  in  the  x  direction,  the  interface  velocity  given 
by  Eq .  (90)  is  approximately  the  velocity  reached  in  a  one-dimensional 
impact.  By  starting  with  a  good  estimate  of  the  velocity  U.  ,  we 
minimize  the  stress  oscillations  that  usually  appear  in  impact  calcula¬ 
tions.  If  the  entire  layout  is  to  be  initialized  at  the  same  velocity, 
as  for  an  oblique  impact  on  a  rigid  wall,  then  can  be  set  to  zero 
and  is  set  to  zero  (for  IVTYPE  =  -1)  or  KMAX  +1  (for  IVTYPE  «  1). 

In  the  second  type  of  velocity  initialization,  the  user  provides 
the  velocity  distribution  by  quadrilateral  blocks  (NVBLK  of  them)  as 
in  the  grid  initialization.  The  velocities  at  all  points  in  the  block 
are  then  initialized  so  that  there  is  a  linear  variation  of  velocity 
with  distance  whenever  possible.  The  equation  used  for  the  velocity 
interpolation  is 


XK,  J 


=  [XK1,J1(XK2,J1  XK,J1}  +  *K2,J1(XK, 

(*T,0  T1  -  X„1  XI  )  (y„  xo 


J2  XKl,Jp, 


+ 


[  *K2, J2(xK, 


K2,J1  XK1,J1) (yK,J2  yK,j! 


J2  XK1,J2')  +  XK1.  J2(xK2,  J2  XK,J2l 


(yK,J2  yK,J) 


(XK2,J2  XK1,J2) (yK,J2  yK,Jl 


) 


(91) 


(yK,J  yK,Jl'> 


A  similar  equation  is  used  for  the  velocity  in  the  y  direction,  y.  The 
resulting  velocity  distribution  is  linear  with  distance  along  straight 
K  and  J  lines  in  the  block. 
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5.4  Restart  Procedure 


For  long  calculations  it  is  convenient  to  be  able  to  perform  the 
computations  in  several  sections.  At  the  end  of  each  section  of  the 
calculation,  the  program  is  stopped,  all  the  information  on  the  current 
status  is  stored,  and  the  computed  results  are  examined.  Then  changes 
are  made  in  the  input  as  required,  the  stored  information  is  read  in 
again  and  the  calculation  is  restarted. 

In  preparation  for  a  restart  the  parameter  NDUMP  is  set  to  the 
frequency  in  cycles  at  which  a  restart  file  should  be  written.  At 
cycles  which  are  multiples  of  NDUMP  and  at  the  last  cycle,  a  restart 
record  is  written  onto  file  9  in  TROTT.  The  restart  record  contains 
the  COM,  LVAR  and  MM  arrays  plus  the  parameters  JMAX,  JMIN,  KMAX,  KMIN, 
and  TYME.  The  programmer  must  save  file  9  at  the  end  of  the  calculation. 

To  restart  from  the  stored  information,  NSTART  is  set  to  the  number 
of  the  record  to  be  used  for  restarting.  The  restart  records  are  read 
from  file  1;  therefore,  the  programmer  must  prepare  for  the  restart  by 
assigning  the  name  "file  1"  to  the  restart  file.  New  restart  records 
will  be  written  on  file  9  as  before.  For  a  restart,  the  input  deck 
includes  the  General  Running  Data  and  Materials  Data  labeled  in  Fig.  9. 
Hence  these  data  may  be  changed  for  the  restart.  KCHEK  should  be  inserted 
equal  to  KMAX  in  the  restart  deck,  although  it  may  have  been  left  at  zero 
in  the  initial  deck.  We  have  used  restarts  to  change  yield  strength  or 
other  model  parameters  which  have  not  yet  been  used  in  the  previous 
calculation. 

Following  the  materials  data  the  restart  record  is  read  into  the 
usual  arrays.  At  this  time  additional  changes  may  be  made  by  calling  a 
user-written  subroutine,  EXTRAT.  (NEXTRA  is  set  to  a  positive  number 
to  trigger  this  call.)  This  subroutine  can  be  constructed  to  modify  any 
of  the  COMMON  variables.  For  example,  distorted  cells  in  the  ejecta 
region  of  a  crater  can  be  eliminated  and  fracture  quantities  can  be 
inserted  arbitrarily. 

When  the  restarted  calculations  begin,  the  time  step  is  set  back  to 

-12 

10  sec  as  for  any  new  calculation. 
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5. 5  Matching  Array  Size  to  Problem  Size 


The  number  of  coordinates  in  the  J  and  K  directions  and  the  total 
number  of  variables  available  may  be  readily  altered  to  match  the  size 
of  a  problem.  The  variables  controlling  these  dimensions  are  all  set 
in  TROTT:  JXX  and  KXX  are  the  number  of  coordinates  in  the  J  and  K 
directions,  and  JSIZE  is  the  size  of  the  COM  array  which  contains  the 
variables  for  each  cell  and  coordinate.  To  change  array  sizes,  these 
three  variables  are  set  in  TROTT  and  the  dimension  statements  for  COM, 
XL,  YL,  MM,  IZ  and  LVAR  are  set  appropriately.  No  changes  are  required 
in  the  subroutines  unless  JXX  exceeds  100:  then  the  XDTEMP  family  of 
arrays  are  redimensioned  in  SWEEPT. 
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6 .  PRINTED  OUTPUT 


Several  types  of  printed  output  are  provided  during  and  at  the 
conclusion  of  a  calculation.  During  the  reading  of  input,  the  input 
lines  are  printed  by  LAYOUTT.  Some  material  property  subroutines  read 
their  own  input  and  provide  printout.  At  the  conclusion  of  the  input, 
a  listing  is  given  by  LAYOUTT  of  the  cell  and  coordinate  layout.  During 
the  calculation  SWEEPT  makes  several  listings  of  the  layout  with  current 
cell  variables.  At  the  end  of  the  calculation,  SCRIBET  is  called  to 
produce  a  historical  listing  of  all  the  variables  requested.  In  addition, 
there  are  error  messages  and  special  printing  from  some  material  models. 
Samples  of  these  listings  are  given  here. 

6 . 1  Input  and  Layout  Listings 

As  the  input  is  read  by  LAYOUTT,  an  echo  print  is  made  of  each  line. 
The  input  lines  shown  in  Figure  9  (Section  5)  are  printed  as  in  Figure 
11.  The  listing  in  Figure  11  is  the  same  as  Figure  9  except  for  the 
addition  of  the  date,  gaps  to  separate  material  property  groups,  the 
sound  speed  listing  (SP  =  )  following  material  properties  data,  and 

the  appended  data  "IN  =  5  CAP."  The  latter  note  indicates  that  these 
data  were  read  by  the  subroutine  CAP1  from  the  input  file  TAPE  5. 

Following  the  reading  of  all  data  and  initialization  of  arrays  by 
LAYOUTT,  a  listing  (as  in  Figure  12)  is  made  of  some  variables  and  array 
quantities  that  are  used  for  each  cell  and  coordinate.  J  and  K  are  the 
Lagrangian  coordinates,  M  is  the  material  number,  and  LVAR  shows  the 
location  in  the  COM  array  at  which  information  for  the  coordinate  begins. 
The  Euler ian  positions  are  X  and  Y.  The  area,  density,  and  mass  (A,D,Z) 
refer  to  the  cell  defined  by  the  coordinates  at  (J,K),  (J-1,K),  (J,K-1), 
and  (J-l,  K-l) .  The  initial  yield  strength,  X  and  Y  velocities,  and 
the  internal  energy  are  also  listed. 
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OATE  •  77/0T/09. 

NO  29,  CQNC  I HP t  92.35M/S»  SANQIA  POO  IMPACT  SIMULATION 


nstar  o 

NPLOT  999  NDUMP  400 

IMAX*  400 

1PR1N  SO 

JPR1N  0 

NEXED 

400 

-0 

IJ8UN  1 

NBLUC  21  NMTRL  5 

NJEO*  1 

-0 

TS* 

jlOOE-02  IVTYPE  ■ 

•l 

NVBLK  ■ 

1 

COSO" 

.4001*01  CLIN 

.250E*00 

TR1Q* 

.200E-01 

JEOT  «K ,  Js 

1321  2 

IMPACTOR 

STEEL  RHOS* 

.785E*01 

CFP-  000 

OPY*  001 

NVAH* 

2  NTRl* 

1 

CQSTC" 

fl59E*13  .517E*13 

.730E*11 

• 169E*01 

•2£0E*00 

« 5 17t  + 1 4»0 • 

yielo* 

*  1 03E* 1 1  .019E*12« 

-0. 

RE8AR  STEEL  RHOS 

• 78SE*0 1 

CEP*  000 

OPY*  001 

-0 

•0 

EQSTC* 

. 159E* 13  .SITE* 13 

• T36E* 1 1 

• 169E*0 1 

«250E*  00 

.5l7t*l4-0. 

yield* 

f I03E*11  .819E*12-0. 

CONCRETE 

RHOS* 

•28SE*01 

cfp*  ooi 

OPY  ■  000 

NCCN  ■ 

'  S 

EQST  ■ 

,2b3e* 12  0. 

•  100E  +  12 

,200E*01 

.250E*00 

0. 

-0. 

RHO  ■ 

. 222E+01  AMU  • 

,203E*12 

AK  ■ 

T • 000E* 1 0  AK2  ■  -5,S00E*01 

MUP  ■ 

S.250E* 10 

MUP  2  ■ 

1 «2S0E*02 

IN. 

5 

CAP 

MC* 

1-040E*09-8.300E*08 

2.T02E*09 

2, 500E+08 

1 « 0  00E* 00 

IN. 

5 

CAP 

SCRIT  ■ 

2. 000E*0T  DAMS (M)  > 

1.000E-03 

IN. 

5 

CAP 

£VP  ■ 

0.  -.1.200E-0*-3.S00E-02- 

-S.000E-02-2.230E-01 

IN. 

5 

CAP 

NREG  * 

4  NPRCAP  ■ 

0 

PI  - 

•3.S00E*08 

HZ  « 

1.250E*00 

IN. 

5 

CAP 

P2  « 

•1  •  000E  +  09  OELP  * 

0. 

IN. 

5 

CAP 

P2  ■ 

-2.4U0E*09  DELP  ■ 

0. 

IN. 

5 

CAP 

P2  • 

-3.400E*09  OELP  ■ 

0. 

IN¬ 

5 

CAP 

P2  • 

■1 ,S33E* 10  OELP  ■ 

0. 

IN. 

5 

CAP 

RES  AR 

RMOS* 

•250E*0 1 

CFP*  100 

OPY  *  000 

NV  AR* 

13 

EQ5JC* 

• 158E* 12  0. 

0. 

•200E*0 1 

♦250E*00 

0. 

-0. 

rs* 

•650E-01  TMETb 

0. 

1MC* 

3 

IMS* 

2 

ALUMINUM 

RMOS  • 

•270E*0 1 

CFP*  000 

OPY  ■  001 

NVAR* 

2 

EQST  ■ 

•66TE* 12  . 100E* 13 

.122E*12 

• 204E«0 1 

•250E*00 

0. 

•  0. 

YIELD 


.3*1E*10  ,26TE*l*-0. 


(1) 

K* 

20 

68 

X* 

45.72000 

13T. 16000 

137.16000 

45.T4000 

MAT 

■ 

1 

J* 

i 

2 

Y* 

0.00000 

0.00000 

1.2T000 

1,27000 

(2) 

K* 

1 

3 

X* 

o.ooooo 

3.81000 

3.81000 

0.00000 

MAT 

3 

3 

J* 

1 

4 

Y* 

0.00000 

0.00000 

3.81000 

3.81000 

(3) 

K* 

3 

4 

X. 

3,81000 

6,35000 

6.35000 

3.81000 

MAT 

B 

4 

J* 

1 

4 

Y* 

0.00000 

0.00000 

3.81000 

3.81000 

(4) 

K* 

4 

IT 

X* 

6.3S000 

39.3T000 

39.3TOOO 

6,35000 

MAT 

B 

3 

J* 

1 

4 

Y* 

0.00000 

0.00000 

3.81000 

3.81000 

(S) 

K* 

17 

18 

X* 

39.3T000 

41*91000 

41.91000 

39.37000 

MAT 

B 

4 

J* 

1 

4 

Y* 

0.00000 

0.00000 

3.81000 

3,81000 

(6) 

K* 

IB 

20 

X. 

41,91000 

45,72000 

45.T2000 

41.91000 

MAT 

8 

3 

J* 

1 

4 

Y* 

0.00000 

0.00000 

3.81000 

3.81000 

(T) 

K* 

1 

3 

X* 

0.00000 

3.81000 

3.81000 

o.ooooo 

MAT 

B 

3 

J* 

4 

8 

Y* 

3.81000 

3,81000 

11.43000 

11,43000 

(8) 

K* 

3 

4 

X* 

3.81000 

6.35000 

6.3S000 

3,81000 

MAT 

B 

4 

J* 

4 

8 

Y* 

3.81000 

3.81000 

11.43000 

11,43000 

(9) 

K. 

4 

17 

X* 

6,35000 

39,37000 

39.3T000 

6,35000 

MAT 

8 

3 

J* 

4 

8 

Y* 

3.81000 

3.81000 

11.43000 

11.43000 

(10) 

K* 

IT 

18 

X* 

39.37000 

41,91000 

41.91000 

39.37000 

MAT 

B 

4 

J* 

4 

8 

Y* 

3.81000 

3,81000 

11.43000 

11.43000 

(11) 

K* 

lb 

20 

X* 

41.91000 

45.72000 

4S.72000 

41.91000 

MAT 

8 

3 

J* 

4 

9 

Y* 

3.81000 

3,81000 

11.43000 

11.43000 

(12) 

K* 

1 

3 

X* 

0.00000 

3.91000 

3.81000 

0,00000 

MAT 

8 

3 

J* 

B 

12 

Y* 

11.43000 

11.43000 

21.59000 

21.59000 

(13) 

K* 

3 

4 

x. 

3.81000 

6.35000 

6.35000 

3,81000 

MAT 

B 

4 

J* 

B 

12 

Y* 

11.43000 

11.43000 

21.S9000 

21,59000 

(14) 

K* 

4 

17 

X* 

6.35000 

39.3T000 

39.3T000 

6,35000 

MAT 

B 

3 

J* 

8 

12 

Y* 

11.43000 

11.43000 

21.S9000 

21.59000 

(15) 

K* 

17 

18 

X* 

39.3T000 

41.91000 

41.91000 

39.37000 

MAT 

B 

4 

J* 

B 

12 

Y* 

11.43000 

11.43000 

21.S9000 

21.59000 

(16) 

K* 

IB 

20 

X* 

41.91000 

45.T2000 

45,72000 

41.91000 

MAT 

8 

3 

J* 

B 

12 

Y* 

11.43000 

11.43000 

21.S9000 

21.59000 

(17) 

K* 

1 

3 

X* 

0.00000 

3.81000 

3,81000 

0.00000 

MAT 

8 

3 

J* 

U 

19 

Y* 

21.69090 

21,59000 

48,26000 

48.26000 

(18) 

K* 

3 

4 

X* 

3.81000 

6.35000 

6.3S000 

3.81000 

MAT 

8 

4 

J* 

12 

19 

Y* 

21.59000 

21 .59000 

48.26000 

48,26000 

(19) 

K* 

4 

17 

X. 

6.35000 

39,37000 

39.3T000 

6.35000 

MAT 

8 

3 

J* 

U 

19 

Y* 

21.59000 

21.59000 

48.26000 

48.26000 

(20) 

K* 

IT 

18 

X* 

39.3T000 

41.91000 

41,91000 

39.37000 

MAT 

8 

4 

J* 

U 

19 

Y* 

21.59000 

21.59000 

48,26000 

48,26000 

(21) 

K* 

IB 

20 

X* 

41.91000 

4  S. 72000 

4S.T2000 

41,91000 

MAT 

8 

3 

J* 

U 

19 

Y* 

21 • 59000 

21.59000 

48,26000 

48.26000 

JU. 

2 

20 

UZERO  ■ 

•9235,440 

FIGURE  11  LISTING  OF  INPUT  PROVIDED  BY  LAYOUTT  FOR  CONCRETE  IMPACT 
CALCULATION 
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FIGURE  12  PORTION  OF  GRID  LAYOUT  WRITTEN  BY  LAYOUTT 


6.2  Periodic  Edits 


At  specified  times  in  the  calculation,  listings  are  made  of  the 
major  cell  and  coordinate  variables  at  the  time.  A  sample  listing  is 
given  in  Figure  13  for  all  the  cells  in  K  rows  13,  16,  and  17  at  cycle 
200.  The  listing  is  requested  by  a  nonzero  valve  of  IPRINT.  Then  the 
listing  occurs  every  IPRINT  cycles.  Locations  are  given  in  centimeters, 

stresses  (positive  in  tension)  and  pressure  (positive  in  compression) 

.  7  2 

are  given  m  megapascals  =  10  dynes/cm  =  0.01  kbar,  internal  energy 

3 

is  given  in  j/kg,  density  in  g/cm  ,  artificial  viscous  stress  in  MPa, 

2 

sound  speed  squared  in  (km/sec)  ,  and  velocity  in  m/sec.  The  indicator 
H  shows  the  path  taken  by  the  material  for  some  material  models;  the 
meaning  depends  on  the  model. 

For  special  material  models,  many  variables  may  be  used  that  are 
not  listed  in  the  usual  edit  in  Figure  13.  These  extra  variables 
beginning  with  the  yield  strength,  C0M(19) ,  are  given  in  the  "extra  edit," 
a  sample  of  which  is  shown  in  Figure  14.  The  meaning  of  the  individual 
variables  must  be  traced  through  the  call  statement  in  SWEEPT  to  the 
material  model  subroutine  as  outlined  in  Appendix  A.  These  extra  edits 
are  requested  by  a  nonzero  value  of  NEXED.  The  listing  is  provided  by 
TROTT  every  NEXED  cycles. 

6 . 3  Historical  Listings 

Histories  are  provided  for  all  COM  array  quantities  and  for  many 
other  variables  through  the  specification  of  JEDT,  JEDK  and  JEDJ  as 
outlined  in  Section  5.  A  history  is  a  list  of  values  of  the  variable 
at  each  time  step.  During  a  calculation,  the  requested  variables  are 
stored  at  each  cycle  on  tape  4.  At  the  conclusion  of  the  calculation, 
the  subroutine  SCRIBET  is  called  by  TROTT  to  read  tape  4  and  print  the 
histories.  A  brief  portion  of  a  history  is  given  in  Figure  15.  The 
listing  consists  of  the  cycle  number  N,  time  in  microseconds,  and  the 
requested  variables.  For  the  standard  variables  the  histories  are 
identified  by  titles  such  as  TZZ(12,5)  for  total  stress  in  the  Z  direction 
in  the  cell  at  K=12,  J=5 .  For  extra  variables  the  K,J  values  and  the 
JEDT  number  are  given  to  identify  the  history. 
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FIGURE  13  PORTION  OF  AN  EDIT  LISTING  WRITTEN  BY  SWEEPT 
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FIGURE  14  PORTION  OF  AN  EXTRA  EDIT  WRITTEN  BY  TROTT 
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FIGURE  15  PORTION  OF  A  HISTORICAL  LISTING  WRITTEN  BY  SCRIBET 


6 .4  Miscellaneous  Messages 


Several  error  messages  and  a  STOP  message  are  provided  by  TROTT. 
Also  several  material  model  subroutines  may  print  information  about  the 
current  state  of  material  in  a  cell. 

The  STOP  message  lists  values  of  the  stop  criteria  and  the  current 
values  of  variables  that  are  compared  with  the  criteria  (see  Figure  16) . 
In  the  sample  case  the  stop  occurred  as  the  result  of  an  error  that 
caused  NSCRIB  to  be  set  to  1. 

When  excessive  grid  distortion  occurs,  cells  may  get  so  tangled 
that  the  cells  areas  become  negative.  When  a  negative  area  is  computed, 
a  message  like  that  shown  in  Figure  16  is  printed  and  NSCRIB  is  set  to 
1.  Then  at  the  completion  of  the  time  step,  TROTT  terminates  the  cal¬ 
culation  with  the  usual  historical  listings. 
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Appendix  A 


INSERTION  PROCEDURE  FOR  MATERIAL  MODELS 

As  new  material  models  are  generated,  they  can  be  added  to  TROTT 
for  performing  wave  propagation  calculations.  The  appendix  describes 
the  procedure  for  inserting  material  model  subroutines  and  provides  a 
sample  case. 

A  wave  propagation  code  normally  has  four  main  categories  of 
operations:  reading  the  input  data,  initializing  a  finite  difference 
grid,  performing  calculations  for  each  time  increment  at  each  grid 
point,  and  printing  the  computed  information.  A  material  model  sub¬ 
routine  may  be  involved  in  all  or  some  of  these  operations.  Call 
statements  must  be  provided  in  TROTT  at  appropriate  locations  to 
accomplish  these  tasks.  Also  the  new  subroutine  should  be  provided  with 
separate  sections  for  each  operation  and  an  indicator  to  show  which 
operation  to  perform.  For  example,  in  SHEAR2  the  formal  parameter  NCALL 
indicates  the  operation  required,  as  follows: 

NCALL  =  0  Initialize  the  routine  and  read  data  for  one  material 

1  Read  data  for  one  material 

2  Calculate  stresses  and  damage 

3  Calculate  stresses  and  damage,  and  print  results 

4  Print  results  only. 

The  calls  for  NCALL  =  0  and  1  are  in  LAYOUTT.  There,  NCALL  is  LSHB,  a 
parameter  that  is  initially  zero.  After  the  first  call,  LSHB  is  set  to 
1.  For  NCALL  =  2  and  3,  the  call  statement  is  in  SWEEPT.  Other  calling 
strategies  are  also  possible.  For  example,  BFRACT  is  initialized  on 
the  first  call  from  SWEEPT;  there  are  no  other  calls.  EXPLODE  is  called 
from  LAYOUTT  to  read  data  and  then  called  for  each  cell  during  the 
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layout  to  initialize  array  variables.  During  propagation  calculation, 
EXPLODE  is  also  called  by  SWEEPT . 

At  the  point  of  insertion  of  the  call  statement,  four  elements  are 
provided . 

(1)  The  appropriate  branching  statements  are  needed  to 
switch  to  the  new  model  when  it  is  required.  For 
SHEAR 2 ,  it  was  decided  to  treat  the  model  as  a  fracture 
routine  and  designate  it  by  NFR(M)  =  3.  Then  the 
available  branching  statements  in  LAYOUTT  and  SWEEPT 
were  amplified  to  include  one  more  branch. 

(2)  Variables  must  be  initialized,  calibrated,  or  given 
sign  changes  just  preceding  the  call  statement. 

(3)  The  call  statement  is  provided. 

(4)  Some  variables  may  need  to  be  reset  following  the 
calculations  in  the  routine.  Then  a  jump  is  provided 
to  the  appropriate  section  of  SWEEPT  or  LAYOUTT-  to 
continue  the  calculation. 

Items  (2) ,  (3) ,  and  (4)  are  discussed  further  below  following  introduc¬ 
tion  of  a  call  statement. 

A  sample  call  statement  for  SHEAR2  is  listed  here  as  it  appears  in 
SWEEPT  (the  same  call  can  be  used  in  LAYOUTT). 

CALL  SHEAR2  (NCALL,  IN,  MAT,  K,  J,  IH(LM) ,  SXXW,  SYYW,  TXYW, 

PW,  COM(LM+24),  DW,  D(LM) ,  DT,  EW,  E(LM) ,  C0M(LM+21) ,  EMELT, 

COM(LM+22),  EXXH,  EYYH,  EXYH,  F,  YY(LM)  COM(LM+23) ,  TH(LM) , 

-ALFA,  ESC,  COM(LM+25) ) 

Because  SHEAR2  represents  a  fairly  complex  case,  this  call  statement 
will  be  discussed  in  detail. 

The  initialization  of  NCALL  for  use  in  LAYOUTT  was  described  above. 
For  SWEEPT,  NCALL  (LS  is  the  name  used  in  SWEEPT)  is  initialized  just 
before  the  call  statement.  NCALL  is  set  to  2  normally,  but  it  is  set 
to  3  on  cycles  when  an  edit  listing  will  occur.  The  parameter  IN  is 
the  file  containing  input  data.  Normally  IN  is  5.  MAT  is  the  material 
number.  The  coordinate  numbers  J  and  K  indicate  the  cell  being  treated; 
they  are  used  for  printout  only.  The  deviator  stress  components  SXXW, 
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SYYW,  TXYW  are  positive  in  tension,  whereas  the  pressure  PW  is  positive 
in  compression.  If  necessary,  sign  and  magnitude  changes  can  be  made 
in  the  stresses  just  preceding  the  call  statement.  The  current  and 
previous  density  and  energy  values  are  DW,  D(LM) ,  EW,  and  E(LM).  The 
strain  increments  EXXH,  EYYH,  EXYH  are  also  positive  in  tension.  For 
SHEAR2  the  standard  equation-of -state  constants  are  contained  in  the 
ESC  array  as  follows: 


D,  S;  the  second  and  third  coefficients  of  the^ 
Hugoniot  series  expansion  for  pressure,  dyn/cin 

2 

shear  modulus,  dyn/cm 


ESC (MAT, 5) 


ESC  (MAT,  9)  =  Griineisen's  ratio. 

All  the  cell  quantities  are  stored  in  a  single  large  array  called  COM. 

The  particular  locations  assigned  to  cell  J,K  begin  at  LM  =  LVAR(K,J). 
IH(LM)  =  indicator,  D(LM) ,  E(LM) ,  YY(LM)  =  yield  strength,  and  TH(LM)  = 
rotation  are  all  in  this  array.  Quantities  COM(LM+24) ,  etc.,  are  also 
in  the  array.  This  allocation  of  space  in  the  COM  array  is  discussed 
further  in  Appendix  B. 

Following  insertion  of  a  new  material  model,  it  is  a  good  plan  to 
run  a  simple  problem  with  frequent  edits  to  determine  whether  the  routine 
is  performing  satisfactorily. 
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Appendix  B 

COORDINATE  AND  CELL  VARIABLES 


All  the  cell  and  coordinate  variables  are  stored  in  a  single  large 
one-dimensional  array  called  COM(  ) .  The  array  locations  that  pertain 
to  each  cell  or  coordinate  are  identified  by  an  auxiliary  array,  LVAR(K,J) 
Extra  array  locations  may  be  provided  for  a  cell  through  the  use  of  the 
indicator  NVAR(M) ♦  Quadrilateral  cells  may  be  divided  into  triangular 
cells  with  the  use  of  NTRI (M) •  Operations  with  these  four  variables  are 
described  below. 

The  standard  17  variables  associated  with  cells  and  coordinates  are 
listed  in  Table  B.l.  These  variables  are  equivalenced  to  the  COM  array 
for  convenience  in  identifying  them.  For  example, 


X(L)  =  COM(L) 

Y (L)  =  COM(L  +  1) 

XD (L)  =  COM(L  +  2) 

Z (L)  =  COM(L  +  6) 

P (L)  -  COM(L  +  15) 


Thus  all  the  variables  associated  with  a  particular  cell  or  coordinate 

are  stored  one  after  the  other  in  the  COM  array.  The  starting  location, 

L,  for  the  set  is  given  by  the  LVAR  array.  Thus  for  the  point  K,  J,  the 

starting  point  is  L  =  LVAR(K,  J) .  To  find  a  value  such  as  P  two 

K ,  J 

steps  are  required: 


L  =  LVAR(K,  J) 

PK,J  '  P(L> 

In  the  layout,  cells  are  numbered  according  to  the  highest  number  coordi¬ 
nates  around  the  cell.  That  is,  for  cell  K,  J  the  coordinates  are 
(K-l,  J-l) ,  (K-l ,  J),  K,  J-l) ,  and  K,  J) .  Therefore,  in  a  normal  layout 
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Table  B.l 


No 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
17 


STANDARD  VARIABLES  FOR  EACH  COORDINATE  AND  CELL 


Name 


Definition 


X 

Y 

XD 

YD 

M 

A 

Z 

D 

SXX 

SYY 

SZZ 

TXY 

TXX 

TYY 

TZZ 

P 

E 


Eulerian  position  in  the  x  direction,  .cm 

Eulerian  position  in  the  y  direction,  cm 

Particle  velocity  in  the  x  direction,  cm/sec 

Particle  velocity  in  the  y  direction,  cm/sec 

Material  number  (normally  unused) 

Cell  area  in  the  xy  plane,  cm2 

Cell  mass  in  planar  problems,  g/cm;  1.5/tt  times 
mass  in  axisymmetric  problems,  g 

O 

Cell  density,  g/cm 

Deviator  stress  in  x  direction,  dyn/cm2 

Deviator  stress  in  y  direction 

Deviator  stress  in  z  direction,  dyn/cm2 

Shear  stress  on  xy  plane,  dyn/cm2 

Total  stress  in  x  direction,  dyn/cm2 

Total  stress  in  y  direction,  dyn/cm2 

Total  stress  in  z  direction,  dyn/cm2 

2 

Pressure,  dyn/cm 
Internal  energy,  erg/g 


80 


there  are  some  coordinates,  such  as  (1,1)  that  are  not  associated  with 
a  cell.  For  these  only  four  variables  (X,  Y,  XD,  and  YD)  are  needed. 

For  the  usual  cell  and  coordinate  combination,  17  variables  are  allocated. 
For  material  models  that  require  more  variables,  an  input  variable  NVAR 
is  set  to  the  additional  number  required.  In  summary,  the  number  of 
variables  allocated  are: 


Coordinate  only  • 

Standard  cell  and  coordinate 
Special  cell  and  coordinate 


4  variables 
17  variables 
17  +  NVAR(M) 


The  LVAR  array  is  initialized  in  such  a  way  that  the  COM  array  is  just 
filled,  with  no  gaps  remaining  between  variable  sets  for  each  cell.  The 
NVAR(M)  input  variable  is  required  for  all  but  simple  elastic  materials. 
Yield  and  explosive  models  require  two  extra  variables.  The  numbers 
required  for  some  special  models  are  listed  in  Table  B.2. 

Triangular  cells  may  be  used  instead  of  quadrilateral  cells  for  any 
material.  The  triangular  cells  are  stiff er  than  quadrilateral  cells  and 
hence  tend  to  resist  distortion  in  regions  of  high  shear  flow.  Because 
they  resist  shear  distortion  partially  by  a  density  change,  the  pressures 
in  such  cells  often  vary  wildly.  Hence  it  is  advisable  to  use  the  tri¬ 
angular  cells  only  where  absolutely  necessary  and  not  to  use  a  pressure- 
sensitive  material  model  for  the  cell  material. 

The  triangular  cell  feature  is  initiated  by  setting  NTRI  =  1  for  the 
material.  Then  each  standard  quadrilateral  cell  K,  J  is  divided  into  two 
triangular  cells  with  coordinates 


(K,  J),  (K,  J-l),  (K-l ,  J) 

(K,  J-l),  (K-l,  J),  (K-l,  J-l). 


and 


A  larger  storage  array  is  required  for  this  special  double  cell.  There 
are  four  (coordinates),  13  (cell),  12  (second  cell),  plus  2  x  NVAR 
variables  for  a  quadrilateral  cell  treated  as  two  triangular  cells. 


81 


Table  B.2 


EXTRA  VARIABLES 

REQUIRED  FOR  SPECIAL  MODELS 

Model 

NVAR 

CAP1 

5 

REBAR 

12 

SHEAR2 

Variable,  minimum  13 

BFRACT3 

23 

EXPLODE 

2 

DFRACT 

6 

DFRACTS 

5 
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To  obtain  historical  information  from  triangular  cells,  the  storage 
process  must  be  traced  to  locate  the  variable  of  interest.  For  example, 
the  request  for  pressure  in  both  triangles  at  cell  K=10,  J=20  would  read 

161020  L1020 

where  16  is  the  number  for  pressure  in  Table  B.l  and  L  =  17  +  NVAR  +16 
-5,  in  which  17  is  the  standard  number  for  the  coordinate  and  the  first 
triangular  cell,  NVAR  is  for  the  extra  variables  in  the  first  cell, 

16  -  5  is  for  the  location  of  the  pressure  variable  for  the  second  tri¬ 
angular  cell.  This  request  for  historical  input  is  also  described  in 
Section  5  and  Table  2. 

For  large  or  oddly  shaped  problems,  it  may  be  necessary  to  redimen¬ 
sion  some  of  the  arrays.  These  arrays  are  COM,  XL,  YL,  MM,  IZ,  and  LVAR 
in  TROTT;  XDTEMP  and  YDTEMP  in  SWEEPT;  and  the  array  size  constants  JSIZE, 
JXX,  and  KXX  in  TROTT.  JXX  and  KXX  must  be  greater  than  or  equal  to 
the  number  of  coordinates  in  the  J  and  K  directions,  and  must  equal  the 
dimension  of  the  arrays  XL,  YL,  MM,  IZ,  and  LVAR.  JSIZE  is  the  length 
of  the  COM  array.  XDTEMP  and  YDTEMP  must  be  dimensioned  to  be  at  least 
as  long  as  JXX. 
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Appendix  C 

SAMPLE  INPUT  DECKS 

This  appendix  provides  some  sample  input  decks  and  supplements  the 
input  description  in  Section  5.  Several  data  decks  are  provided  to 
illustrate  the  main  features  of  TROTT  and  the  range  of  problems  that  can 
be  treated.  General  guidelines  for  constructing  the  decks  are  listed 
below: 

•  The  data  fields  are  usually  in  multiples  of  5  or  10 
characters . 

•  The  first  column  is  reserved  for  indicators  and  is 
normally  blank. 

®  Columns  2  through  10  are  usually  labels  only. 

•  Any  number  of  decks  can  be  run,  one  following  the 
other  with  no  separators  between  decks. 

Problems  of  planar  and  cylindrical  geometry  can  be  run  by  appropriate 
use  of  the  indicator  IJBUND  (see  Table  1  in  Section  5) .  The  activation 
is  usually  prescribed  either  by  velocities  or  a  detonation.  Sample 
problems  with  these  geometries  and  activation  mechanisms  are  provided  in 
the  following  figures. 

Figure  C.l  contains  an  input  deck  for  a  one-dimensional  simulation 
of  a  plate  impact  problem  in  lexan.  Only  one  cell  in  the  J  direction  is 
used.  The  second  lexan  material  is  treated  by  the  NAG  brittle  fracture 
model . 

A  two-dimensional  simulation  of  an  impact  of  a  rod  onto  an  oblique 
plate  is  initialized  by  the  data  deck  in  Figure  C.2.  The  rod  is  treated 
as  a  plate  and  the  target  is  simply  a  rigid  boundary  at  45°.  Triangular 
cells  are  used  for  the  row  of  cells  along  the  impact  plane. 
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DUPLICATE 
NSTAR  0 
IJBUND  -1 
TS  = 

COSQ  = 
KSLIDE  0 
JPR  = 

JEDT , K  j J  = 


LEXAN 
EQST  = 


PUFF  RUN  1033-51  IMPACT 
NPLOT  999  NDUMP  999 
NMTRLS  3 
I VTYPE  = 

CLIN  = 


IN  LEXAN  FOR  D.  SHOCKEY 


NBLOCK  3 
1 5 . 00E-06 
4.0 

JSLIDE  0 
96  100 

-510202 
-512002 
-512802 


-51 0402 
-512102 
-513002 

RHOS  = 


LEXAN 
EQST  = 
TSR  = 


RHOS 


-1 . 000E+07 


LEXAN  FRACTURE 


RHOS  = 


EQST  = 

4 . 720E+1 0- 

-1  .Ti30E+1  1 

BFR  = 

-5. OOOE 

-04 

3. 600E+07 

BFR  2 

-1 . 670E+09 

0. 

YIELD  = 

1 . OOOE+1 1 

2 . OOOE+1 0 

K  = 

1 

1  0 

X  = 

J  = 

1 

2 

Y  = 

K  = 

10 

1  1 

X  = 

J  = 

1 

2 

Y  = 

K  = 

1 1 

33 

X  = 

J  = 

1 

2 

Y  = 

JU  = 

1  1 

KU  = 

7/8/9 


I MAX=  100 
NJED=  16 

IPRIN  10 

JPR I N  1 

1 

NVBLK  = 

0 

0.  1 

TRIQ  = 

0. 

-510602 

-51 0802 

-51 1402 

-512202 

-512302 

-512402 

1  .  20 

CFP  =  000 

DPY  =  000 

1 . OOOE+1 1 

1  .  30 

.  25 

1  .  20 

CFP=  060 

DPY  =  000 

1 . OOOE+1 1 

1 . 30 

.  25 

1 . 2 

CFP  =  020 

DPY  =  001 

1 . OOOE+1 1 

1 . 3 

.  25 

.  002 

3. 500E+1 0- 

1 . 670E+09 

.  25 

1 .0 

.  20 

0. 

.  2745 

.2745 

0  . 

0. 

.  03 

.2745 

.  305 

.  305 

0. 

0. 

.  03 

.  305 

.  963 

.  963 

0. 

0. 

.  03 

1  1 

UZERO  = 

1 . 522E+04 

-51 1602 
-512502 


-51 1 802 
-51 2602 


0  NTR I 


2  NTR I  = 


NVAR  =  26  NTR I  =  o 
3. 500E+1 2 

1.41 0E+08  . 02 

4 . 0 


0.  MAT  =  1 

.  03 

.2745  MAT  =  2 

.  03 

.305  MAT  =  3 

.  03 


FIGURE  C.1  SIMULATION  OF  A  ONE-DIMENSIONAL  PLANAR  IMPACT  OF  LEXAN  PLATES 
UNDERGOING  BRITTLE  FRACTURE 
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OBLIQUE  PLATE  IMPACT  WITH  BFRACT,  45  DEG.,  UZER0=1.E+05  CM/SEC 


NSTAR 
ANGLE  = 
IJBUND  -3 
TS  = 

CQSQ  = 
KSLIDE  0 
JP1 , JP2  = 
JEDT  j K ,  J  = 


0  NPLOT  993 
45. 

NBLOCK  4 
1 . 000E-04 
. 4000E+01 
JSLIDE  0 
1  5 

-5110  2 
-5125  6 


ARMCO  FRACTURE 
EQST  =  . 1 590E+ 1 3 

BFR  1  =  - . 550E-03 

BFR  2  =  - . 300E+ 1 0 

YIELD  =  . 550E+ 1 0 

ARMCO  IRON 
EQST  =  . 1 590E+ 1 3 

YIELD  =  . 550E+1 0 


ARMCO  IRON 
EQST  = 
YIELD  = 


. 1 590E+1 5 
. 550E+1 0 


K 

J 


K  = 
= 

K  = 
J  = 
K  = 
J  = 


1 

1 

29 

1 

29 

2 

29 

5 


29 

6 


JU  = 
7/8/9 


NDUMP  999 

I  MAX  0 

I  PR  IN  200 

JPRIN  1 

NOBLQ 

1 

NMTRLS  3 

NJED  =  13 

IVTYPE  = 

-1 

NVBLK  = 

1 

CLIN  = 

. 1 OOOE+OO 

TRIQ  = 

. 1 OOOE+OO 

-5110  6 

-5115  2 

-5115  6 

-5120  2 

-5120  6 

-5125 

2 

-5130  2 

-5130  3 

-5130  4 

-5130  5 

-5130  6 

RHOS  = 

. 7850E+0 1 

CFP=  020 

DPY  =  001 

NVAR  =  23 

. 51 7E+1 3 

. 736E+ 1 1 

. 169E+01 

. 250E+00 

. 517E+14 

- . 1 00E+09 

. 500E- 04 

. 400E+ 1 3 

- . 300E+ 1 0 ■ 

5270E+10 

0. 

. 250E+00 

. 500E+00 

. 400E+00 

. 300E+01 

. 81 9E+1 2 

RHOS  = 

. 7850E+0 1 

CFP=  000 

DPY  =  001 

NVAR  =  2 

NTR I  = 

1 

■517E+13 

. 736E+1 1 

. 169E+01 

. 250E+00 

.517E+14 

.819E+12 

RHOS  = 

. 7850E+01 

CFP-  000 

DPY  =  001 

NVAR  =  2 

.517E+13 

. 736E+1 1 

. 169E+01 

. 250E+00 

.517E+14 

2. 380E+14 

X  = 

0. 

6.72 

6.72 

0. 

MAT  = 

1 

Y  = 

0. 

0. 

1  .20 

1  .  2 

X  = 

6.72 

6.  86 

7. 1 

6.72 

MAT  = 

2 

Y  = 

0. 

0. 

.  24 

.  24 

X  = 

6.72 

7.  1 

7.  1 

6.72 

MAT  = 

2 

Y  = 

.  24 

.24 

.  96 

.  96 

X  = 

6.72 

7. 1 

6.86 

6.72 

MAT  = 

2 

Y  = 

.  96 

.  96 

1  .  2 

1 . 2 

ii 

z> 

0 

UZERO  = 

1 . 000E+05 

FIGURE  C.2  IMPACT  OF  AN  ARMCO  IRON  PLATE  ONTO  A  RIGID  WALL  AT  45° 
TRIANGULAR  CELLS  IN  THE  REGION  OF  IMPACT 


WITH 
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A  planar  problem  with  just  two  cells  is  illustrated  in  Figure  C.3. 
The  calculation  was  made  to  examine  coefficients  to  use  for  the  tri— 
angular  artificial  viscosity.  The  velocity  initialization  shows  the 
method  for  laying  out  velocities  by  quadrilateral  blocks. 

Figures  C.4,  C.5,  and  C.6  contain  decks  for  impacts  of  cylinders 
along  their  common  axes.  Figure  C.4  simulates  a  simple  impact  of  two 
cylinders  to  test  radial  motion  of  the  free  cylindrical  walls. 

Radial  motions  are  also  of  interest  in  the  impact  prescribed  by  the 
deck  in  Figure  C.5.  The  simulation  includes  a  PMMA  flyer  plate  on  the 
front  of  an  aluminum  projectile  described  in  geometric  detail.  The 
target  is  a  disk  of  zinc  sulfide  inside  an  aluminum  guard  ring;  both 
disks  are  encased  in  lexan.  The  lexan  housing  is  also  inside  a  separable 
lexan  guard  ring.  The  special  spall  features  of  materials  2  and  4 
(CFP  «  050  or  060)  permit  spallation  along  radial  and  circumferential 
surfaces . 

Impact  of  a  steel  cylinder  (with  a  2.5-inch  diameter  aluminum  pro¬ 
jectile)  onto  a  reinforced  concrete  target  is  simulated  with  the  data 
deck  in  Figure  C.6.  The  concrete  is  treated  by  a  cap  plasticity  model 
and  the  reinforcing  steel  layers  by  a  composite  model. 

Explosions  activate  the  problems  in  Figures  C.7,  C.8,  and  C.9.  The 
deck  in  Figure  C.7  simulates  a  detonation  running  along  the  axis  of  a 
small  PETN  charge  in  a  cylinder  of  oil  shale.  The  calculation  was  made 
to  examine  radial  stresses  at  planes  where  stress  gages  had  been  located 
in  the  corresponding  experiment. 

Figure  C.8  is  the  input  deck  for  a  contained  fragmenting  round 
experiment.  The  motion  is  caused  by  a  running  detonation  in  PETN  down 
the  axis  of  the  fragmenting  steel  cylinder,  which  is  being  treated  by 
the  shear  band  model  (CFP  =  030) .  Radial  motion  of  the  round  is  presented 
by  surrounding  the  round  with  cylinders  of  PMMA,  steel,  and  lead,  in  that 
order.  Problems  with  the  large  distortions  at  the  outer  ends  of  the 
fragmenting  steel  cylinder  are  avoided  by  making  the  outermost  rows  of 
cells  triangular  instead  of  quadrilateral. 
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L  ^  L  ^ 


HOURGLASS  I NQ  SAMPLE 
NS TAR  0  NPLOT  999 

IJBUND  -3-NBLOCK  1 
TS  =  1.000E-04 

COSO  =  4 . E 

KSLIDE  0  JSLIDE  0 
JED  =  321 


TO  TEST  TRIO  EFFECTIVENESS 
NDUMP  999  I  MAX  50  IPRIN  1 
NMTRLS  1  NJED=  5 
IVTYPE  =  2  NVBLK  = 

CLIN  =  0. IE  TRIG  = 


322  -51  22  323 


2 

0. 03E0 


-51  2  3 


IMPACTOR  STEEL  RHOS= 

EQSTC=  1.5889E12  5.170E12 

YIELD=  1 . 222E1 0  8.188E11 


7.85E  CFP=  000  DPY  =  001  NVAR  =  2 

7.360E10  1.69E0  0.25E0  5.170E+13 


K  = 
J  =* 


7/8/9 


2 


2  X  =  0.  1  , 

3  Y  =  0.  0. 

2  XDOT  =  -10000.  10000 

3  YDOT  =  0.  0. 

2  XDOT  =  10000.  -10000. 

2  YDOT  =0.  0. 


1.  0.  MAT 

2.  2. 

10000.  -10000. 

0.  0. 


1 


FIGURE  C-3  TEST  OF  THE  DAMPING  PROVIDED  BY  THE  TRIANGLE  ARTIFICIAL 
VISCOSITY  TO  COMBAT  HOURGLASSING  MOTIONS 
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CYLINDRICAL  I  1PACT  FOR  TESTING  LATERAL  MOTION 
NSTAR  0  NPLOT  999  NDUMP  999 
NMTRLS  1 
IVTYP  = 

CLIN  = 


IJBUND  2 
TS  = 

CQSQ  = 
KSLIDE  0 
JEDT  =  K  j J  = 


NBLOCK  2 
1 . 000E-04 
4.E 

JSLIDE 
4  5 
-49 
1  1 
-50 
12 
-53 


4 

-50 
1  2 
-51 
16 
-53 
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FIGURE  C-7  RUNNING  DETONATION  ALONG  THE  AXIS  OF  A  CYLINDER  OF  OIL  SHALE 
Array  sizes  should  be  reset  with  KXX  >  47,  JXX  >  20,  and  JSIZE  >  17000. 
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FIGURE  C-8  RUNNING  DETONATION  OF  PETN  IN  A  STEEL  FRAGMENTING  CYLINDER 
CONTAINED  IN  CYLINDER  OF  PMMA,  4340  STEEL,  AND  LEAD 
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FIGURE  C-9  SIMULATION  OF  A  FRAGMENTING  ROUND  OF  STANDARD  MILITARY  SHAPE 


Array  sizes  should  be  reset  with  KXX  >  58,  JXX  >  7,  and  JSIZE  >  19000. 
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Detonation  of  a  standard  military  shell  is  simulated  with  the  deck 
in  Figure  C.9.  Material  3  is  detonated  first,  then  the  detonation  runs 
through  the  secondary  explosive  (material  2) .  The  steel  HF-1  is  simu¬ 
lated  by  the  shear  band  model  so  that  a  fragment  size  distribution  is 
obtained  at  the  end  of  the  calculation.  Note  that  three  of  the  quadri¬ 
lateral  cells  (blocks  11,  14,  and  17)  are  laid  out  in  the  shape  of 
triangles . 

Most  of  the  data  decks  shown  can  be  run  with  the  array  dimensions 
shown  in  the  listings:  KXX  =  40,  JXX  =  30,  and  JSIZE  =  15000.  However, 
for  problems  in  Figs.  C-7  and  C-9,  these  dimensions  must  be  augmented 
as  shown  in  the  figure  subtitles.  Matching  array  dimensions  to  problem 
size  is  further  discussed  in  Section  5.5. 


96 


Appendix  D 


CALCULATIONS  FOR  EXPLOSIVES 

This  appendix  outlines  a  simple  detonation  theory  based  on  standard 

* 

references  such  as  Taylor.  Then  the  types  of  detonation  provided  in 
TROTT,  the  input  required,  and  the  algebra  of  the  code  calculations  are 
described . 

Background  on  Detonation  Processes 

Three  substances  are  involved  in  a  detonation  process:  the  unreacted 
explosive,  the  reacting  explosive,  and  the  product  gases.  Here  we  will 
presume  that  the  unreacted  explosive  and  the  product  gases  can  be  repre¬ 
sented  by  equations  of  state  with  the  pressure-volume  isentropes  shown 
in  Figure  D.l.  During  detonation,  the  chemical  energy  in  the  explosive 
is  transformed  to  internal  energy  and  the  state  point  moved  from  the 
unreacted  curve  to  the  product  curve  of  Figure  D.l.  In  Chapman-Jouguet 
detonation  theory,  the  reaction  occurs  within  the  shock  front.  In  a 
steady  detonation,  the  material  follows  a  Rayleigh  line  from  the  initial 
density  to  a  point  of  tangency  on  the  products  curve  as  shown.  The  point 
of  tangency  is  the  Chapman-Jouguet  or  C-J  point.  The  pressure,  volume, 
and  energy  at  this  point  are  labeled  P^,  V^j,  and  E^j.  If  the  product 
gases  are  assumed  to  follow  a  polytropic  gas  equation  of  state,  that  is, 

PV^  -  constant  (D.l) 

Then  relations  for  the  detonation  velocity  (D  ),  P  ,  E  ,  and  the  parti- 

x  oj  L  J 

de  velocity  (uCJ)  can  be  derived.  These  are  all  derived  from  the  poly¬ 
tropic  gas  relations,  Hugoniot  jump  conditions,  energy  conservation,  and 
the  condition  of  tangency  at  the  CJ  point. 


J.  Taylor,  Detonation  in  Condensed  Explosives  (Clarendon  Press,  Oxford 

1952). 
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PRESSURE 


M  A-6802  -1  3 


FIGURE  D.  1  PRESSURE-VOLUME  PATHS  FOLLOWED  IN  DETONATION  PROCESS 
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(D.2) 


D 

x 


(Y  +  1)  (Y  -  1) 


PCJ  =  2V^  -  «  Po 

Y 

VCJ  =  Po(y  +  1) 


E 


CJ 


2Q  y 
x 

Y  +  1 


(D.3) 

(D.4) 

(D.5) 


where 


CJ 


2Qx(y  -  l)n 


Y  +  1 


Qx  -  the  energy  of  the  explosive 

PQ  =  the  initial  density. 


(D.6) 


the  polytropic  gas  exponent  is  related  to  the  Griineisen  ratio  as  follows 


y  =  r  +  i 


(D.7) 


For  many  common  explosives,  y  values  range  from  2.5  to  3.0.  This  expo¬ 
nent  describes  the  product  gas  isentrope  adequately  down  to  a  few 
kilobars .  For  lower  pressures,  the  apparent  y  value  decreases  gradually 
to  about  1.5  at  ambient  conditions. 

Besides  the  Chapman-Jouguet  process,  several  other  detonation 
processes  may  occur  in  explosives.  Von  Neumann  suggested  that  in  a 
steady-state  running  detonation,  the  pressure  in  the  shock  rises  to  the 
point  V.N.  in  Figure  D.l  and  then  reduces  gradually  to  C-J  as  the 
chemical  reaction  occurs.  Path  C  is  typical  of  computed  pressure-volume 
paths  followed  during  the  buildup  to  a  steady-state  detonation.  Here 
the  chemical  reaction  is  occurring  during  the  loading  by  the  stress  wave. 
If  the  explosion  occurs  without  a  change  in  volume,  the  vertical  path  to 
the  constant— volume  point  C— V  is  followed.  The  Chapman— Jouguet , 
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von  Neumann,  constant-volume,  and  various  gradual  detonation  processes 
have  all  been  used  to  represent  explosive  phenomena.  Only  the  Chapman- 
Jouguet  and  constant-volume  processes  are  currently  available  in  TROTT. 

The  detonation  type  used  in  the  calculation  should  match  as  nearly 
as  possible  the  explosive  behavior  and  geometry  being  considered.  For 
example,  if  a  block  of  explosive  next  to  a  plate  is  detonated  at  a  point 
on  the  block  opposite  the  plate,  the  detonation  front  will  reach  the 
plate  as  a  plane  wave;  this  process  should  be  simulated  as  a  running 
detonation.  If  the  detonation  occurs  such  that  the  wave  front  sweeps 
past  the  plate,  however,  a  constant-volume  explosion  may  give  a  better 
representation  of  the  impulse  applied  to  the  plate.  In  some  problems  the 
stress  histories  in  the  explosive  are  not  important  (as  in  the  impact  of 
an  explosively  driven  flyer  plate);  then  a  constant-volume  calculation 
will  adequately  represent  the  impulse  applied  by  the  explosive. 


Computation  of  Detonation  Processes  with  the  Subroutine  EXPLODE 

The  Chapman- Jouguet  and  constant-volume  detonation  processes  are 
incorporated  into  the  EXPLODE  subroutine.  This  routine  may  be  called  to 
perform  three  different  functions:  reading  input,  initializing  cells, 
and  computing  the  pressure  for  the  running  detonation. 


The  input  for  an  explosive  calculation  includes  NTYPE,  Q^,  Y 

and  b,  and  is  read  during  the  first  call  to  EXPLODE  from  LAYOUTT.  NTYPE 
indicates  the  type  of  detonation: 


NTYPE  =  1 
=  2 
-  3 
=  4 


Constant  volume  explosion 
Detonation  along  a  line  of  constant  x. 
Detonation  along  a  line  of  constant  y. 
Detonation  from  a  point. 


X^  and  Y^  designate  the  initiation  lines  or  points  for  a  running  detona¬ 
tion.  The  parameter  b  is  the  number  of  cells  over  which  a  detonation  front 
is  spread:  nominal  values  of  b  are  2  to  4. 
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At  the  second  call  to  EXPLODE,  the  energy  and  density  of  cells  con¬ 
taining  explosive  are  initialized.  This  call  is  made  from  LAYOUTT  during 
the  cell  layout  process.  For  a  constant-volume  explosion,  the  internal 
energy  is  equated  to  Qx,  and  Fg  =  FBURN  (the  detonated  fraction)  is  set 
to  1.0  to  show  that  detonation  has  taken  place. 

For  a  running  detonation,  only  cells  near  the  detonation  point  or 
line  are  initialized  at  the  second  call  to  EXPLODE.  The  reacted  fraction 
FBURN  of  a  cell  is  computed  based  on  the  distance  of  the  cell  midpoint 
from  the  initiation  point  or  line. 

|z  -  zj 

FB  ■  1  -  ~ bAZ  (0-8) 

where  Z  =  the  cell  midpoint 

Zq  =  the  initiation  point 

AZ  the  cell  length  in  the  direction  of  propagation. 

For  the  line  initiations,  the  Z  quantities  are  interpreted  as  the  approp¬ 
riate  X  or  Y  values.  For  a  point  detonation,  Z  -  Zg  is  the  diagonal 
distance 


z  -  ^  -  y«-v2+  (y-v2' 

and  AZ  is  the  diagonal  cell  length 


(D .  9) 


AZ  = 


[ (X  -  Xp) AX] Z  +  [(Y  -  Yd)AY]! 
Z  -  Z„ 


(D. 10) 


where  AX  and  AY  are  the  cell  dimensions.  From  Eq.  (D.8)  it  appears  that 
the  cell  midpoint  must  be  within  a  distance  of  bAZ  of  the  initiation  point 
for  any  initiation  to  occur.  For  Fg  >  0,  the  pressure,  density,  and 
internal  energy  are  augmented  to  represent  a  point  along  the  C-J  detona¬ 
tion  path  in  Figure  D.l.  Hence 
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p 


(D.ll) 


=  p  F 
CJ  B 


P 


1  +  VVCJpo  -  D 


(D. 12) 


E  =  Qx  +  (ECJ  “  Qx)Fb  (°-13) 

This  energy  calculation  appears  adequate,  although  it  is  not  justified 
analytically. 

The  third  call  to  EXPLODE  is  made  in  SWEEPT.  The  purpose  of  the 
call  is  to  compute  pressure  and  energy  during  and  following  the  reaction 
process.  First,  the  time  t^  to  begin  burning  is  computed. 

|z  -  Z  I-  bAZ 

t  =  - n - -  (D- 14) 


The  fraction  detonated  is  then 


fb  = 


bAZ 


(D. 15) 


where  t  is  the  current  problem  time.  Because  of  the  absolute  value  sign 
in  Eq.  (D.14),  the  detonation  can  proceed  in  either  direction  from  the 
initiation  point  or  line.  Given  the  detonated  fraction  F^,  the  pressure 
and  energy  are  computed  both  from  the  usual  polytropic  gas  relations  and 
as  fractions  of  the  C-J  values.  The  pressure  and  energy  values  for  the 
cell  are  taken  as  the  maxima  from  these  two  calculations. 
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Appendix  E 


LISTING  OF  TROTT  PROGRAM 

The  listing  of  the  TROTT  program  includes  the  primary  routines  TROTT, 
LAYOUTT,  SWEEPT,  and  SCRIBET  plus  some  of  the  material  model  subroutines 
that  may  be  used  with  TROTT.  Listed  here  are  EQST,  EPLAS,  REBAR,  and 
EXPLODE.  Other  material  models  that  may  be  used  with  TROTT  are  listed 
in  Volume  II  of  the  final  report,  the  manual  for  SRI  PUFF  8. 
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PROGRAM  TROTT 


PROGRAM  TROTT  ( I NPUT, OUTPUT, TAPE5= I NPUT, TAPE6=0UTPUT, TAPE1 =1000, 

1  TAPE2, TAPE3, TAPE4, TAPE7=TAPE1 , TAPE8=TAPE2, TAPE9=1000) 

C 

C  PROGRAM  FOR  2-DI MENSI ONAL  PLANAR  OR  AXISYMMETRIC  WAVE  PROPAGATION 

C  WITHOUT  SLIDE  LINES  OR  VERY  LARGE  DEFORMATION.  LAGRANG I  AN,  ART  I F I 

C  VISCOSITY  CODE  WITH  TRIANGLE  0.  INTEGRATION  BASED  ON  LEAPFROG  SCHE 

C  AND  CONSTANT  STRAIN  QUADRILATERAL  FINITE  ELEMENTS, 

C 

C  WRITTEN  MARCH  1976  BY  L. SEAMAN. 

COMMON/EQS/EQSTC ( 6 ) , EQSTD ( 6 ) , EQSTE ( 6 ) , EQSTG ( 6 )  ,  EQSTH ( 6 )  ,  EQSTN ( 6 )  , 

1  EQSTS ( 6 ) , RHO (6) , RHOS ( 6 ) , YCC6) , YAD( 6) , MU(6) , ESC (6, 20) , CL  I N, CQSQ, 

2  TR I Q, AMAT ( 6, 4 ) , SP( 6 ) , G2 ( 6 ) , PM I N( 6) 

COMMON/NSCRB/SJ ( 60) , NJED, NJKED, NKED, N, TI MEZ, D I SCPT( 20 ) , JEDJ ( 60 ) , 

1  JEDKC60) , JEDTC60) , NAME (60) 

COMMON/GEN/LZ ( 1  ) ,  I JBUND,  JMAX, JMI N, KMAX, KM  I N, UZERO, CALTIM, 

DELTIM,  DT , DTN, TS, TYME, NSTART, NPLOT, NDUMP,  I  MAX,  I  PR  I  NT 

2  , KSK I P , KFULL , KPMAX, KPM I N , JPMAX, JPMIN, JSL I DE, KSL I DE 

3  ,  NSCRI B,  DTW,  NEXED, NOBLQ, TANTH, JPR I  NT, JPR, JP1 ( 20) , JP2 ( 20 ) , KCHEK 

4  , NBND,  IBDJ1 (6)  ,  IBDJ2C6)  ,  IBDK1 (6) ,  IBDK2(6) ,  I BDX( 6 ) ,  I BDY ( 6) , 

5  XFI X ( 6 ) , YF I X( 6 ) 

COMM0N/CAL/  LISTE, LISTS, L I STX, L I STXD, CALE, CALS, CALX, CALXD 
COMMON/ I ND/NCMP ( 6 ) , NFR ( 6 ) , NPOR ( 6 ) , NDS ( 6 ) , NPR ( 6 ) , NVAR ( 6 ) , NTR 1(6) 
COMMON/TSR/TSR ( 6, 21 ),BFRC6,20) 

REAL  MU 

DIMENSION  X( 1 ) , Y( 1 ) , XD( 1),YD(1),M(1),A(1),Z(1),D(1), SXX( 1 ) , SYY ( 1 ) , 

1  SZZC 1  ) , TXY ( 1 ) , TXXC 1 ) , TYY ( 1 ) , TZZC 1 ) , P ( 1 ) , E ( 1 ) , TH ( 1 )  ,  FS ( 1 ) , DSTL ( 1 ) 

2  , SRS ( 1 ) , ZEVP ( 1 ) , TEVP ( 1 ) , YY (1 ) , ROLD ( 1 ) , I H ( 1 ) , ENM ( 1 ) , ENT (1 ) , 

3  I COM( 1 ) , CLB( 1 ) , CL1 ( 1 ) ,  CN(  1  ) ,  FF(  1  ) 

EQUIVALENCE  ( COM,  I  COM)  ,  ( COM( 1 ) ,  X ) ,  ( COM ( 2 ) , Y ) ,  ( COM ( 3 ) , XD) , 

1  (  C0MC4)  ,  YD)  ,  C  COM  (  5 )  ,  M)  ,  (  COM  (  6 )  ,  A)  ,  (C0M(7)  ,  Z)  ,  (  COM(  8)  ,  D)  ,  (COMO)  , 

2  SXX )  ,  ( COM ( 1 0 )  ,  SY Y )  ,  ( COM ( 1 1) , SZZ ) ,  ( COM (12), TXY ) ,  ( COM (13), TXX ) , 

3  (COM( 14)  ,  TYY)  ,  (COM(  1  5)  ,  TZZ)  ,  (C0M(16),P),  (C0M(17),E),  (COM (18), 

4  I H) , ( COM ( 1 9) , YY ) , ( COM ( 20 ) , TH ) , ( COM (21), ZEVP ) , ( COM ( 22 ) , TEVP ) , 

5  ( C0M( 23) , FS ) , (C0M(24) , DSTL) , ( COM( 25) , ROLD) , ( COM ( 26 ) , SRS ) , 

6  (C0M(22)  ,  ENM)  ,  ( COM ( 23)  ,  ENT)  ,  ( COM( 23 )  ,  CLB ) ,  (C0M(28),CL1  ),  (C0M(33) 

7  , CN ) , ( COM ( 21 ) , FF) 

COMMON  AREAS  WHICH  MUST  BE  REDIMENSIONED  TO  MATCH  PROBLEM  SIZE 
COMMON/T/COM (15000) 

DIMENSION  XL (40, 30) , YL(40, 30) ,MM(40, 30) , IZ(40, 30) , LVAR(40, 30) 

DATA  ( NAME ( I ) ,  I=1,55)/3H  X, 3H  Y , 3H  XD, 3H  YD,3(3H  ) , 3H  D, 

1  3HDSX, 3HDSY , 3HDSZ, 3HTXY , 3HTXX, 3HTYY, 3HTZZ, 3H  P, 3H  E,3H  IH, 

2  3H  YY , 3H  TH, 3H21 * , 3H22* , 3H23* , 3H24* , 3H25* , 3H26* , 3H27*  ,  3H28*  , 

3  3H29* , 3H30* , 3H31 *, 3H32*, 3H33*, 3H34*,  3H35*,  3H36*,  3H37*,  3H38*, 

4  3H39*, 3H40*, 5(3H  ) , 3H  EX, 3H  EY,3H  EZ,3HEXY,3H  Q, 3H  SX, 3H  SY, 

5  3H  SZ, 3HSTS, 3HSTN/ 

ALSO  SET  JSIZE,  JXX,  KXX 

IF  JXX  EXCEEDS  100,  RESET  DIMENSION  OF  XDTEMP  IN  SWEEP 

JS I ZE= 1 5000 

JXX=30 

KXX=40 

JK=JXX*KXX 

D I SCPT (1 ) =5H  DAT 
D I SCPT ( 2 ) =5HE  = 

CALL  DATE ( D I SCPT ( 3 ) ) 

D I SCPT ( 4 ) =SH I  FT ( D I SCPT ( 3 )  ,  30) 

10  CALL  SECOND(TIMEZ) 

#########  ###### 
initialization  in  layoutt 

CALL  LAYOUTT (JSIZE, JXX, KXX, XL, YL, MM, IZ,LVAR) 

C 

NC  =  3 

IF  (NPLOT  .LT.  900)  GO  TO  180 
80  IF  UMAX  .EQ.  0)  GO  TO  10 

WRITE  (4)  DISCPTj  JEDT, JEDKj JEDJ 
N  =  0 

NSCR I B=0 
NC=  1 

T I M=T I MEZ 
DT  = 1  . E-1 2 
DTN=DT 
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PROGRAM  TROTT  (Continued) 


1  00 

N  =  N+1 

TROTT 

60 

CALL  SECOND (TNOW) 

TROTT 

66 

CALT I M*TNCW-T I ME2 

TROTT 

67 

DELT I M*TNOW-T I M 

TROTT 

68 

T I M=TNCW 

TROTT 

69 

TYME=TVME+DT 

TROTT 

70 

IF  (TYME  .GE.  TS  .OR.  N  .  GE  .  IMAX)  IPRINT=N 

TROTT 

71 

C#  #  * 

****** 

************ 

TROTT 

72 

c 

COMPUTATIONS  IN  SWEEPT 

TROTT 

73 

c 

TROTT 

74 

CALL  SWEEPT( JSI2E, JXX,KXX, XL, YL,MM, I 2, LVAR) 

TROTT 

75 

c 

TROTT 

76 

TG=TYME  *1 . E6 

TROTT 

77 

C*  ******** 

************ 

TROTT 

78 

c 

WRITE  TAPE4  FOR  SCRIBE  HISTORIES  AND 

PLOT  HISTORIES 

TROTT 

79 

WRITE  (4)  N, TG, DT, DELTIM, (SJ( I ) ,  1=1,NJED) 

TROTT 

80 

IF  (NEXED  . EQ.  0)  GO  TO  150 

TROTT 

81 

C*  *******  * 

************ 

TROTT 

62 

c 

WRITE  THE  EXTRA  EDIT 

TROTT 

83 

IF  ( MOD ( N, NEXED )  . EQ .  0)  GO  TO  140 

TROTT 

84 

IF  (JPRINT  .EQ.  0)  GO  TO  150 

TROTT 

85 

IF  (N  .LT.  JPI(JPR)  .OR.  N  ,GT.  JP2(JPR))  GO 

TO  150 

TROTT 

86 

140 

PRINT  1 140, N , TYME 

TROTT 

87 

DO  148  K= 1 , KMAX 

TROTT 

88 

PRINT  1 1 42 , K 

TROTT 

89 

DO  148  J  =  2, JMAX 

TROTT 

90 

IF  ( MM ( K , J )  .LE.  0)  GO  TO  148 

TROTT 

91 

LM=LVAR ( K, J ) 

TROTT 

92 

MAT=MM ( K , J ) 

TROTT 

93 

IF  (NVAR(MAT)  .LE.  1)  GO  TO  148 

TROTT 

94 

NV1 =LM+ 1 8 

TROTT 

95 

NV2=NVAR ( MAT ) +LM+ 1 7 

TROTT 

96 

PRINT  1 145, J, CCOMC I ) , I =NV1 , NV2) 

TROTT 

97 

148 

CONTINUE 

TROTT 

98 

IF  (NC  .GT.  1 )  GO  TO  205 

TROTT 

99 

1  50 

CONTINUE 

TROTT 

1  00 

c* ******** 

************ 

TROTT 

101 

c 

DUMP  FOR  RESTART 

TROTT 

1  02 

IF  ( NDUMP  .NE.  0  .AND.  MOD ( N , NDUMP )  . EQ .  0 ) WR I TE ( 9 ) ( COM ( I )  ,  I  =  1  , 

TROTT 

103 

1  JSI2E) ,  (LVARC I ) j  I  *  1 j  JK) j ( MM  Cl),  I  *  1 , JK) , JMAX, 

, JM 1 N , KMAX , KM  1 N , TYME 

TROTT 

104 

c 

TROTT 

105 

c 

WRITE  PLOT  FILE 

TROTT 

1  06 

IF  (N  .EQ.  JP2 ( JPR ) )  J PR= JPR+1 

TROTT 

107 

c 

TROTT 

108 

c 

CHECK  STOP  CRITERIA 

TROTT 

1  09 

IF  (NSCRIB  .GT.  0)  GO  TO  200 

TROTT 

1  1  0 

IF  (TYME  .GE.  TS)  GO  TO  200 

TROTT 

1  1  1 

I F  ( N  .GE.  IMAX)  GO  TO  200 

TROTT 

1  1  2 

IF  ( MOD ( N, NPLOT )  . NE .  0)  GO  TO  195 

TROTT 

1  1  3 

c*  ******** 

************ 

TROTT 

1  14 

c 

WRITE  TAPE  3  FOR  X*Y  PLOTS 

TROTT 

1  15 

180 

DO  190  K= 1 , KMAX 

TROTT 

1  16 

JMI N=0 

TROTT 

1  17 

DO  185  J=1 , JMAX 

TROTT 

1  18 

IF  ( LVAR ( K, J )  .EQ.  -1)  GO  TO  190 

TROTT 

1  19 

IF  ( LVAR ( K, J )  .EQ.  0)  GO  TO  185 

TROTT 

1  20 

IF  (JMIN  .EQ.  0)  JMIN  =  J 

TROTT 

121 

LM=LVAR(K, J) 

TROTT 

1  22 

XL ( K , J ) =X ( LM ) 

TROTT 

1  23 

YL ( K, J ) =Y ( LM) 

TROTT 

1  24 

I 2 ( K, J ) = I H ( LM ) 

TROTT 

1  25 

1  85 

CONTINUE 

TROTT 

1  26 

1  90 

CONTINUE 

TROTT 

127 

WRITE  (3)  N, TYME, ( (XL(K, J) , YL(K, J) ,  IZ(K,J), 

J=1 , JMAX) , K= 1 , KMAX) 

TROTT 

1  26 

1  95 

CONTINUE 

TROTT 

1  29 

IF  (NC-2)  197,210,80 

TROTT 

1  30 

C 

TROTT 

1  31 

C 

SET  TIME  STEP  FOR  NEXT  CYCLE 

TROTT 

1  32 

197 

DTN=DT 

TROTT 

133 

DT  =  AM I N 1  (0.9*  DTW, AMAX1  (1  . 2*DT, 0 . 035* DTW) ) 

TROTT 

1  34 

DTN=0 . 5* ( DT+DTN ) 

TROTT 

1  35 

IF  (DT  .GT.  1.E-12)  GO  TO  100 

TROTT 

1  36 

C 

TROTT 

137 

C 

PREPARE  FOR  HISTORICAL  LISTING  AT  END  OF  COMPUTATION 

TROTT 

1  38 

200 

CALL  SECOND ( TNOW ) 

TROTT 

1  39 
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PROGRAM  TROTT  (Concluded) 


********* 

FINAL  DUMP  FOR  RESTART 
IF  ( NDUMP  .NE.  0  .AND,  MOD  ( N , NDUMP ) 
1  JS I ZE ) ,  (LVARCI ), 1=1 , JK), (MM (I ), 1=1 
NC  =  2 

CALT I M*TNOW-T I MEZ 
IF  (NEXED  .GT.  0)  GO  TO  140 


, NE.  0)WRI TEC  9) (COMC 15,1=1, 
JK) , JMAX, JMI N, KMAX, KMI N, TYME 


1  250 
225 
250 


1  140 
1  142 
1  145 
1  200 


FORMAT ( A3) 

CONTINUE 

CONTINUE 

CALL  SECOND (TNOW) 

CALT I M=TNOW-TI MEZ 
CALL  SCR  I  BET 
GO  TO  10 

FORMAT  C//21H  EXTRA  EDIT  AT  CYCLE  I4,7H,  TYME= 1  PE 1 0 . 3 ) 
FORMAT  C 3X,  1 HJ,  1  OX , 9HC0LUMN  K  =  14) 

FORMAT  (IX, 13, 1  P 1  OE 1  2 . 3/  (  1  X , 10E12.3) ) 

FORMAT ( //*  STOP  CRITERIA  -  I  MAX  =*,I4,4X,*TS  =*,1PE10.3, 

"  *  DT  LESS  THAN  1.E-12  NSCRIB  =  1  * , 4X, *CALT I M  =*,1PE10.3, 


*  SECONDS*/* 
-  *  DT  =  *, 
END 


CURRENT 
1PE10. 3, * 


VALUES  -  N  =  * ,  14,*  TYME  =*,1PE10.3, 
NSCRIB  =  *,  I  2) 


TROTT 

TROTT 

TROTT 

TROTT 

TROTT 

TROTT 

TROTT 


TROTT 

TROTT 

TROTT 

TROTT 

TROTT 

TROTT 

TROTT 

TROTT 

TROTT 

TROTT 

TROTT 

TROTT 

TROTT 

TROTT 

TROTT 


140 

141 

142 

143 

144 

145 

146 


205 

CONTINUE 

TROTT 

147 

IF 

( NPLOT  . 

LT,  900)  GO  TO  180 

TROTT 

148 

21  0 

PR  1 

INT  1200, 

I  MAX, TS, CALT I M, N, TYME,  DT,  NSCR I B 

TROTT 

149 

IF 

CNJED  .LE.  0)  GO  TO  250 

TROTT 

1  50 

DO 

225  1=1 

,  NJED 

TROTT 

151 

JT= JEDTC I ) 

TROTT 

1  52 

IF 

(JT  .LT. 

-40)  JEDTC I ) =NAME( -JT) 

TROTT 

1  53 

IF 

(JT  .GT. 

0  .AND,  JT  ,LE.  20)  JEDTC I ) =NAME( JT) 

TROTT 

1  54 

IF 

(JT  .GT. 

20)  ENC0DEC3, 1250,  JEDTC I ) )  JT 

TROTT 

155 

1  56 
157 
156 
1  59 
160 
161 
162 
1  63 
164 
1  65 
1  66 
1  67 
168 
169 
1  70 
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SUBROUTINE  EPLAS 


SUBROUTINE  EPLASC J,  I , M,  SR3, PS,  DES, ESC,  D , Y )  EPLAS 

DIMENSION  ESC(6j  20)  ,  DESC4) j  SR3C4)  EPLAS 

I  X , Zj  Yj  XZ  v  EPLAS 

DES(I)  DEVIATOR  STRAIN  INCREMENTS  EPLAS 

SR3 ( I )  DEVIATOR  STRESSES  EPLAS 

ESC ( M ,  1  ) =  RHOO  ESC(M,2)=C  ESC(M,3)=D  ESCCMM^S  ESCCMj  5) = SHEAR  MOD  EPLAS 
ESC (1,6)=  WORK  HARDENING  MODULUS  EPLAS 

D  DENSITY  AFTER  STRAIN  EPLAS 

V  YIELD  EPLAS 

Y  =  ESC ( M , 7 )  EPLAS 

UsD/ESC ( M ,  1 ) -1  .  EPLAS 

C  COMPUTE  NEW  PRESSURE  EPLAS 

PSa  ESC ( M j  2)  JKU+ESCCM,  3)*U**2  +  ESC(MJ  4)*U**3  EPLAS 

DEPSM«(DES(  1  ) +DES ( 2 ) +DES ( 3 ) )/3.  EPLAS 

C  COMPUTE  STRESSES  IF  STRAINS  ARE  ELASTIC  EPLAS 

SR3 ( 1  ) =SR3 ( 1  ) +2 . *ESC ( M  t 5)*(DES( 1 ) -DEPSM)  EPLAS 

SR 3 ( 2 ) *SR3 ( 2 ) +2 , *ESC ( M , 5 ) * ( DES ( 2 ) -DEPSM)  EPLAS 

SR3 ( 3 ) =SR3 ( 3 ) +2 . *ESCiMt 5) *(DES(3) -DEPSM)  EPLAS 

SR3C4) =SR3(4)+2. *ESC(MJ  5)*DES(4)  EPLAS 

SR3EFF«SQRT ( 3 . /2 , * (SR3( 1 )  **2+SR3 ( 2) **2+SR3 ( 3 ) **2+2 . *SR3(4) **2) )  EPLAS 
C  TEST  FOR  YIELD  EPLAS 

IF  ( SR3EFF  .  LE,  Y  )  GO  TO  30  EPLAS 

C  COMPUTE  YIELD  WITH  WORK  HARDENING  EPLAS 

YbY+ESCCM, 6) *(SR3EFF-Y)/(2*ESCCM,5)+ESC(M,6) )  EPLAS 

C  COMPUTE  STRESSES  IF  STRAINS  ARE  PLASTIC  EPLAS 

SR3 ( 1 )=SR3( 1 ) *Y/SR3EFF  EPLAS 

SR3 ( 2 ) =SR3 ( 2 ) * Y/SR3EFF  EPLAS 

SR 3 ( 3 ) =SR3 ( 3 ) * Y/SR3EFF  EPLAS 

SR3C4) =SR3(4 ) *Y/SR3EFF  EPLAS 

30  CONTINUE  EPLAS 

RETURN  EPLAS 

END  EPLAS 
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SUBROUTINE  EQST 


SUBROUTINE  EQST ( Ej  D,  P,  M) 

COMMON/ EQS/EQSTC ( 6 ) , EQSTD ( 6 ) , EQSTE ( 6 ) , EQSTG ( 6 ) J EQSTH ( 6 ) , EQSTN ( 6 ) , 

1  EQSTS  ( 6 ) ,  RHO  ( 6 ) ,  RHOS  (61^0(6),  Y  AD  ( 6 ) ,  MU  ( 6 )  ,  ESC  (  6 ,  20 )  J  CL  I  N ,  CQSQ , 

2  TR I  Q  j AMAT ( 6 , 4 ) , SP ( 6 ) , G2 ( 6 ) ,  PM I N ( 6 ) 

EMU=  D/RHOS ( M) - 1  . 

PH  =  EMU# ( EQSTC ( M ) +EMU# ( EQSTD ( M) +EMU*EQSTS  CM) ) ) 

P«PH»(1 . -0. 5*EQSTG(M)#(1 . -RH0S(M)/D) ) +EQSTGCM) #RHOS (M) #E 

RETURN 

END 


EQST 

EQSCOM 

EQSCOM 

EQSCOM 

EQST 

EQST 

EQST 

EQST 

EQST 
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SUBROUTINE  EXPLODE 


SUBROUTINE  EXPLODE  (NCALL, I  N ,  M, E,  D, DOLD, P, 0, FBURN,  X, DX, Y, DY , J, K, 

1  TIME) 

C 

C  INITIALIZATION  DEFINITIONS 

C  X,  Y  CELL  CENTERS 

C  DX,  DY  CELL  DIMENSIONS 

C  TIME  =  TBURN j  T I  ME  WHEN  DETONATION  REACHES  CELL 

C  DEFINITIONS  FOR  SWEEP  COMPUTATIONS 

C  X  =  TBURN, DETONATION  TIME 

C  DX  =  CELL  DIMENSION 

C  TIME  =  PROBLEM  TIME 

COMMON/EQS/EQSTC ( 6 ) , EQSTD ( 6 ) , EQSTE ( 6 ) , EQSTGC  6) , EQSTHt  6) , EQSTN ( 6 ) , 

1  EQSTSC  6) , RHO( 6) , RHOSC  6) , YC ( 6) , YAD ( 6 ) , MU ( 6 ) , ESC( 6, 20) , CL I N, CQSQ, 

2  TRIO, AMAT (6,4), SP( 6) , G2( 6)  ,  PM  I NC 6) 

D I  MENS I  ON  DET( 6) , DI ST ( 6) , ECJ ( 6) , PCJ ( 6) , GEXPL ( 6) , VCJ ( 6)  ,  XDET ( 6)  , 

1  YDETC6) , NTYPEC6) 

IF  ( NCALL-2)  100,200,300 
C 

C  READ  DATA  AND  INITIALIZE  MATERIAL  VARIABLES  ( NCALL= 1 ) 

C 

100  READ  (IN, 1000)  A1 , A2, NTYPEC M ) , A3, A4 , QEXPL (M ) , XDET (M ) , YDET ( M) , 

1  DIST(M) 

PRINT  1500,  A1 , A2, NTYPE(M) , A3, A4, QEXPL(M) ,XDET(M) , YDET(M)  , 

1  DIST(M) 

PRINT  1001 , IN 

DET(M) =SQRT( 2. * QEXPL ( M ) * EQSTGC M) * ( EQSTG(M)+2. ) ) 

E=DET ( M) 

VC J ( M )  =  ( EQSTG (M)  +  1  .  )/( ( EQSTG ( M ) +2 .  ) *  RHO (M) ) 

ECJ ( M ) =2 . *( EQSTGC M)+1 . ) *QEXPLC M ) / ( EQSTG CM ) +2 . ) 

PCJ CM) =2. *RHO(M)*QEXPL(M) * EQSTGC M) 

PRINT  1501, DETCM) , VCJ CM) , ECJ CM) , PCJ CM) 

RETURN 

C 

C  INITIALIZE  CELL  VARIABLES  ( NCALL=2 ) 

C 

200  NTYP  =  NTYPE( M ) - ( NTYPE ( M) / 1 0 ) *  1  0 

GO  TO  (210,220,230,240)  NTYP 
C  CONSTANT  VOLUME  EXPLOSION  ( NTYPE= 1 ) 

210  E=QEXPL ( M ) 

FBURN= 1 . 

RETURN 

C  DETONATION  ALONG  A  LINE  OF  CONSTANT  -X-  CNTYPE=2) 

220  DZ=ABS( DX) *DIST(M) 

TBURN = ( ABS ( X-XDET ( M ) ) -DZ) /DETCM) 

IF  (TBURN  .GE.  0.)  GO  TO  280 
FBURN=AMIN1 ( 1 . , - TBURN *DET ( M) /DZ ) 

GO  TO  250 

C  DETONATION  ALONG  A  LINE  OF  CONSTANT  -Y-  ( NTYPE=3 ) 

230  DZ  =  ABS( DY ) *D I  ST ( M ) 

TBURN= ( ABSC Y-YDET(M) ) -DZ ) /DET  CM) 

IF  (TBURN  .GE.  0.)  GO  TO  280 
FBURN  =  AMIN1 ( 1 . , -TBURN* DET  CM) /DZ) 

GO  TO  250 

C  DETONATION  FROM  A  POINT  ( NTYPE=4 ) 

240  XH=X 
YH=Y 

ZH  =  SQRT( ( XH-XDET  CM) ) **2+(YH-YDET(M) )**2) 

IF  CZH  .LT.  1.E-4)  GO  TO  248 

DZ  =  D I  ST  CM ) *SQRT ( ( (XH-XDET CM) )*DX)**2+C ( YH-YDET (M) )*DY)**2)/ZH 
TBURN = (ZH-DZ)/DET(M) 

IF  (TBURN  .GE.  0.)  GO  TO  280 
FBURN=AMIN1 ( 1 . , -TBURN*DET(M) /DZ) 

GO  TO  250 
248  FBURN= 1 . 

250  IF  CNTYPE(M)  .GT.  10)  GO  TO  270 

E= QEXPL ( M) +( ECJ ( M ) -QEXPL ( M ) ) *FBURN 
D=RH0 ( M) / ( 1 . -FBURN* ( 1 . -VCJ ( M ) *RHO ( M ) ) ) 

P=PCJ(M)*FBURN 

260  PRINT  1555, K,J, FBURN, TBURN, XH,E,D,P 

1555  FORMAT  (*  K,J=*2I4,*  FBURN= *F6 . 4 , *  TBURN=*1PE11  3,*  XH=*E11.3, 

1  *  E=*E1 1.3,*  D=*E1 1 . 3, *  P=*E1 1.3) 

GO  TO  280 

270  E = QEXPL ( M) * FBURN 
P= EQSTG ( M) *D*E 
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SUBROUTINE  EXPLODE  (Concluded) 


280 


c 

c 

c 

300 


c 

31  0 
320 


352 


360 


1  000 
1  001 
1  350 

1  500 
1  501 


GO  TO  260 
T I ME  =  TBURN 
DX  =  DZ 
RETURN 

COMPUTE  DETONATION  PROCESS  ( NCALL=3 ) 

IF  ( FBURN  .GT.  0,999)  GO  TO  310 
NTYP=NTYPE(M) -(NTYPE(M)/10) #10 
IF  ( NTYP  .GT.  1 )  GO  TO  320 

PRESSURE  IN  EXPLOSION  PRODUCTS 
P=EQSTG(M) *D*E 
RETURN 
TBURN=X 

FB  =  AM I N1  ( 1  . ,  AMAX1  ( ( T I  ME -TBURN ) *DET ( M ) /DX, 

1  ( 1 . -RH0(M)/D)/( 1 . -VCJ(M) *RHO(M) ) , FBURN) ) 

IF  (FB  .LT.  0.4)  RETURN 
H  DV  =  0 . 5  * ( 1  . /DOLD-1  . /D) 

P0LD=P 

P=EQSTG ( M) *D* ( E+POLD*HDV+QEXPL ( M ) * ( FB- FBURN) +Q*2  *HDV)/ 

1  ( 1 . -EQSTG(M) *HDV*D) 

E=E+ ( P+POLD ) *HDV+QEXPL ( M ) * ( FB- FBURN ) +2 . *Q*HDV 
IF  (NTYPE(M)  .GT.  1 0 )  GO  TO  360 
P  =  AMAX1  ( P ,  PC J ( M ) *FB ) 

E= AMAX 1 ( E, ECJ(M) *FB) 

FBURN=FB 

IF  (FB  .GE.  0.999)  PRINT  1350,K,J,D 
RETURN 

FORMAT  ( 2A5 j  I  1 0 , 2A5, 5E 1 0 . 3 ) 

FORMAT  ( 1H+, 79X, 1 2H  I ND=  ,  I N= I  2,1  OH  -EXPLODE-) 

FORMAT  ( 27H  DETONATION  COMPLETED  AT  K= I  3, 3H  J=I3,9H  DENS  I TY  = 
1  1  PEI  0.3) 

FORMAT ( 2A5 ,  I  1 0, 2A5,  1 P5E1 0. 3) 

FORMAT  ( 1 0X , 33HFR0M  EXPLODE,  DET,  VCJ,  ECJ,  PCJ  =  1P4E10  3) 
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SUBROUTINE  LAYOUTT 


SUBROUTINE  LAYOUTT ( JS I ZE, JXX,  KXX, XL, YL, MM,  I  Z, LVAR) 

ROUTINE  READS  IN  DATA  FOR  EACH  PROBLEM  AND  LAYS  OUT  COORDINATE  ARR 

COMMON/GEN/LZ ( 1 ) , I JBUND,  JMAX, JM I N, KMAX, KM  I N, UZERO, CALTIM, 

1  DELTIM,DT,DTN,TS,TYME, NSTART, NPLOT, NDUMP, IMAX, IPRINT 

2  , KSK I P , KFULLj KPMAX, KPM I N , JPMAX , JPM I N , JSL I DE, KSL I DE 

3  , NSCRIB, DTW, NEXED, NOBLQj TANTH, JPR I  NT, JPR, JP1 ( 20 ) , JP2 ( 20 ) , KCHEK 

4  , NBNDj IBDJ1 (6) , I BDJ2 ( 6 ) , IBDK1 (6) , I BDK2 ( 6 ) , I BDX ( 6 ) , I BDY ( 6 ) , 

5  XFI X ( 6 ) , YF I X( 6 ) 

COMMON/CAL/  LISTE,  LISTS, LI STX,  LISTXD, CALE, CALS, CALX, CALXD 
COMMON/ I ND/NCMPC  6) , NFR ( 6 ) , NPOR( 6) , NDS( 6) , NPR( 6) , NVAR ( 6 ) , NTR I (6) 
COMMON/TSR/TSR ( 6, 21 ) ,BFR(6, 20) 

COMMON/NSCRB/S J ( 60 ) , NJED, NJKED, NKED, N, T I MEZ, D I SCPT ( 20 ) , JEDJ ( 60 )  , 

1  JEDKC60) , JEDTC60) , NAME(60) 

COMMON/EQS/EQSTC ( 6 ) , EQSTD ( 6 ) , EQSTE ( 6 ) , EQSTG ( 6 ) , EQSTH ( 6 ) , EQSTN ( 6 ) , 

1  EQSTS ( 6 ) , RHO ( 6 ) , RHOS (6),YC(6),YAD(6),MU(6),ESC(6,20),CLIN, CQSQ , 

2  TRIG),  AMAT  (  6,  4  )  ,  SP  (  6 )  ,  G2  (  6 )  ,  PM  I  N  (  6 ) 

REAL  MU 

COMMON/ T/ COM ( 1 000) 

D I  MENS  ION  XA ( 4 ) , Y A ( 4 ) , XL ( KXX , JXX )  ,  YL  ( KXX , JXX ) , MM ( KXX , JXX) ,  I Z ( KXX , 

1  JXX) , LVARCKXX, JXX) 

DIMENSION  X( 1 ) , Y ( 1 ) , XD ( 1 ) , YD ( 1 ) , M ( 1 ) , A ( 1 ) , Z ( 1 ) , D ( 1 ) , SXX( 1 ) , SYY ( 1 ) , 

1  SZZ( 1 ) , TXYC 1 ) , TXX( 1 ) , TYY( 1 ) , TZZ( 1 ) , P ( 1 ) , E ( 1 ) , TH( 1 ) , FS ( 1 ) , DSTL ( 1 ) 

2  , SRS ( 1 ) , ZEVP ( 1 ) , TEVP ( 1 ) , YY( 1 ) , ROLDC 1 ) , I H( 1 ) , ENM( 1 ) , ENT ( 1 ) , 

3  I  COM ( 1 ) , CLB ( 1 ) , CL1 ( 1 ) , CN ( 1 ) 

EQUIVALENCE  ( COM,  I  COM ) ,  ( COM ( 1 ) ,  X) ,  ( COM ( 2 ) , Y ) ,  ( COM ( 3 ) , XD ) , 

1  (COM  (4),  YD),  (  COM  (  5 ) ,  M ) ,  (COM  (6),  A),  (C0M(7),Z),  (C0M(8),D),  (COMO), 

2  SXX), ( COM (10), SYY ) , (COM( 1 1 ) ,SZZ), (COM( 12) , TXY ) , (COM( 13) , TXX) , 

3  ( COM (14), TYY ) , ( COM ( 1 5 ) , TZZ ) , ( COM ( 1 6 ) , P ) , ( COM ( 1 7 ) , E ) , ( COM (IS), 

4  IH) , ( COM( 1 9) , YY) , (COM (20) , TH) , (C0M(21 ) , ZEVP ) , (COM (22) , TEVP) , 

5  ( COM ( 23 ) , FS ) , (COM (24), DSTL), ( COM( 25 ) , ROLD ) , ( COM ( 26 ) , SRS ) , 

6  ( COM ( 22) , ENM ) , ( COM ( 23 ) , ENT) , ( COM( 23) , CLB ) , < COM (26), CL 1 ), (COM (33) 

7  , CN) , ( COM ( 21 ) , FF) 

DATA  LISTE, LISTS, LISTX, LISTXD, CALE, CALS, CALX,  CALXD/5HKJ/KG,  3HGPA 
1  , 2HCM, 5HM/SEC, 1  . E-7, 1  . E-7, 1  .  ,  1  .  E-2/ 

C 

C  XA( 1 ) =XL ( K 1 , J1 ) ,  XA ( 2 ) =XL ( K2, J1 ) ,XA(3) =XL(K2, J2) ,XA(4) =XL(K1 , J2) 

C 

DO  102  1=1 , JS 1 ZE 

102  COM( I ) =0 . 

JK= JXX*KXX 
DO  104  I =1 , JK 
XL ( I ) = -999 . 

YL ( I ) = -999 . 

MM ( I ) =0 

104  LVAR ( I ) =0 

DO  106  1=1,237 

106  EQSTC ( I ) =0 . 

DO  107  1=1,246 

107  TSR ( I ) =0 . 

DO  108  1=1,36 

108  NCMP ( I ) =0 

DO  109  1=1,245 

109  SJ(I)=0. 

DO  1 1 1  1=1,66 

111  LZ ( I ) =0 

KMAX=KXX 
J MAX = JXX 

READ  1 1 00, (DISCPT( I ) ,  1=5,20) 

IF  ( EOF ( 5) )  105, 1 10 
105  PRINT  1001 
STOP  2020 
110  PRINT  1000 

PRINT  1100,  ( D I SCPT ( I ) ,  1=1,4) 

PRINT  1100,  ( D I SCPT ( I )  ,  1=5,20) 

READ  1 1 05, A1 , NSTART, A2, NPLOT, A3, NDUMP, A4,  I  MAX, A5, 

1  I  PR  I  NT, A6, JPR I  NT, A7, NEXED, A8, NOBLQ 
PRINT  1 105, A1 , NSTART, A2, NPLOT, A3, NDUMP, A4, IMAX,A5, 

1  IPRINT, A6, JPRI NT, A7, NEXED, A8, NOBLQ 
IF  (NOBLQ  .EQ.  0)  GO  TO  115 
READ  1 1 04, A1 , A2, ANGLE 
PRINT  1 104, A1 ,A2, ANGLE 
TANTH=TAN( ANGLE/57. 2957795) 
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SUBROUTINE 

LAYOUTT  (Continued) 

1  15 

CONTINUE 

C 

I JBUND  DEFINITION 

C 

BOUNDARY  CONDITION 

AX  I SYMMETR I C 

PLANAR 

C 

FIXED  YVEL  AT  JMAX. JM IN 

1 

-1 

-2 

C 

FIXED  YVEL  AT  JMIN  ONLY 

2 

C 

FREE  EDGES 

-3 

c 

FIXED  YVEL  AT  JMIN  , 

4 

-4 

c 

FIXED  XVEL  AT  KMAX,  KM I N 

c 

FIXED  YVEL  AT  JMIN,  JMAX, 

5 
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FIXED  XVEL  AT  KM  IN 

c 

FIXED  YMIN,  XMIN 
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IVTYPE  DEFINITION 

INITIALIZE  X  VELOCITY  UP  TO  KU,  SET  INTERFACE 
VELOCITY  AT  KU 

INITIALIZE  X  VELOCITY  FROM  KU  TO  KMAX,  SET 
INTERFACE  VELOCITY  AT  KU 

2  INITIALIZE  X  AND  Y  VELOCITIES  BY  BLOCKS,  INTERPOLATING  IN 
X  AND  Y.  NO  INTERFACE  PROVISION 
IPRIND  CAUSES  A  CARD  TO  BE  READ  WHICH  SETS  SPECIAL  PRINT  OPTIONS 
KSKIP  SKIPS  K  COLUMNS  IN  THE  PRINTOUT 
KFULL  GIVES  FULL  K  LISTING  AMONGST  SKIPPED  K  LISTINGS 
KPMAX  AND  KPMIN  SET  THE  MAXIMUM  AND  MINIMUM  K  ROWS  TO  BE  PRINTED 
JPMAX  AND  JPMIN  SET  THE  MAXIMUM  AND  MINIMUM  J  COLUMNS  TO  BE 
PRINTED 
KSKIP  =1 
KFULL= 1 
KPMAX=KMAX 
KPM I N  =  KM I N  = 1 


JPMAX  =  JMAX 
JPM I N  =  JM I N= 1 

READ  1 106, A1 , A2, I JBUND, A3 , A4 , NBL0CK, A5, A6 , NMTRLS , A7 , A8 , NJED 
1  , A9, A1 0, IPRIND,A1 1  ,  A1  2 , NEXTRA 
PRINT  1 1 06, A1 , A2, I JBUND, A3, A4, NBLOCK, A5, A6, NMTRLS, A7, A8, NJED 
1  , A9, A1 0, I PRI ND, A1 1 , A1 2, NEXTRA 
READ  1 108, A1 ,A2JTS,A3JA4J I VTYPE, A5, A6, NVBLK, A7, A8, KCHEK 
PRINT  1  108, A1 , A2, TS, A3, A4,  I VTYPE, A5 , A6 , NVBLK , A7, A8 , KCHEK 


READ  1  104, A 1  , A2, CQSQ, A3, A4 , CL  I N, A5, A6, TRIQ 
PRINT  1 1 04, A1 , A2, CQSQ, A3, A4 , CL  I N, A5, A6,  TRI Q 

READ  1 106, A 1 , A2,KSLI DE, A3, A4, JSLIDE, A5, A6,NBND, A7, A8,  I  CAL 
PRINT  11 06, A1 , A2, KSLI DE, A3, A4 , JSLI DE, A5, A6, NBND, A7, A8,  I  CAL 
IF  (NBND  .LE.  0)  GO  TO  135 
DO  133  1=1, NBND 

READ  1 133, A1 ,A2, IBDK1 ( I ), IBDK2C I ) , A3, A4 , I BDJ 1 ( I ) , I BD J2 ( I ), A5, A6, 

1  IBDXC I  ),  IBDY( I  ) , XFI X ( I  ) , YF I  X ( I  ) 

PRINT  1 1 33, A1 , A2, I BDK 1 ( I ) , I BDK2C I ) , A3, A4, I BDJ 1 ( I ) , I BDJ2C I )  A5  A6 
1  IBDXC I ),  IBDYC I )  ,  XF I  X ( I  ) , YF I  X ( I  ) 

133  CONTINUE 

135  IF  (ICAL  .LE,  0)  GO  TO  140 

READ  1 109, A1 jA2, LISTE, LISTS, LISTX, LISTXD 
PRINT  1 1 09, A1 , A2, LISTE, LISTS, LISTX, LISTXD 
READ  1 1 07, A1 , A2, CALE, CALS, CALX, CALXD 
PRINT  11 07, A 1 , A2, CALE, CALS, CALX, CALXD 
140  CONTINUE 

IF  (JPRINT  .EQ.  0)  GO  TO  145 

READ  1 1 1 2, A1 , A2, (JP1(I),JP2(I),  1=1, JPRINT) 

PRINT  1 1 1 2, A1 , A2, ( JP1 ( I ) , JP2( I ) ,  1=1, JPRINT) 

JPR=  1 


145  IF  (NJED  .EQ.  0)  GO  TO  155 
N1  =  1 


1 50  N2  =  M I  NO ( N 1 +6 , NJED) 

IF  ( N2  .LE,  60)  READ  1125,  A1 , A2,  ( JEDT( I  )  ,  JEDK( I  )  ,  JEDJ(I), 
I =  N 1 , N2 ) 

IF  (N2  .GT.  60)  READ  1 1 10, A1 

PRINT  1125,  A 1 , A2,  ( JEDT ( I ) , JEDK ( I ) , JED J ( I ) ,  I=N1,N2) 

N1=N2+1 

IF  (N2  .LT.  NJED)  GO  TO  150 
1 55  N JED  =  M I  NO ( NJED,  98 ) 

N JKED  =  N JED 

IF  (IPRIND  .LE.  0)  GO  TO  160 

READ  1 1 1 1 , A1 , A2, KSKIP, A3, A4, KFULL, A5, A6, KPMAX, A7, A8, KPMIN, 

1  A9, A1 0, JPMAX, A1 1 , A12,  JPMIN 

PRINT  1111, A1 , A2, KSKI P, A3, A4, KFULL, A5, A6, KPMAX, A7, A8 , KPM I N 
1  A9,A10, JPMAX, All, A12, JPMIN 

160  LSHB=0 

DO  200  L=1, NMTRLS 


LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 

LAYOUTT 


65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 
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97 

98 

99 
100 
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1  15 
1  1  6 
1  17 
1  1  8 
1  1  9 
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129 

130 
1  31 
132 
1  33 
134 
1  35 
1  36 
1  37 
138 
1  39 


112 


o  o  o  o 


SUBROUTINE  LAYOUTT  (Continue 


READ  1 1 30 j  (AMAT(L,I),  1=1,4),  A1 , A2, RHOSC L ) , A3, A4 , NCMP ( L ) , 

1  NFR(L) , NPORCL) , A5, A6, NDS(L) , NPR(L) , NY AM, A7, A8 , NVAR ( L ) , A9, A10, 

2  NTRI(L) 

RHO ( L ) =  RHOS ( L ) 

PRINT  1002 

PRINT  1,130,  (AMATCL,  I  )  ,  1=1,4),  A 1  ,  A2,  RHOS  (  L )  ,  A3,  A4 ,  NCMP  (  L  )  , 

1  NFR(L) , NPORCL) , A5, A6, NDS(L) , NPR(L) , NY AM, A7, A8, NVARCL) , A9, A10, 

2  NTRI(L) 

READ  1107,  A 1 , A2 , EQSTCCL) , EQSTD ( L ) , EQSTE(L) , EQSTQ(L) , 

EQSTH(L) , EQSTS(L) , PMIN(L) 

PRINT  1 1 07 , A 1 , A2, EQSTC ( L ) , EQSTD ( L ) , EQSTE ( L ) , EQSTO ( L ) , 

EQSTH ( L ) , EQSTS ( L ) , PM  I N ( L ) 

IF  (NCMP(L)  .GT.  0)  CALL  REBAR C - 1 , 5, 1 , 1 , L, N, I H, RHO ( L ) , DOLD, SSP, SY , 
1 SZ , TXY, E, P, DEX, DEY, DEZ, DEXY, F, THETA, DTHETA, ESC, FS, DSTL , SRS, ZEVP, 

2  TEVP, YC ( L ) , ROLD, IPRINT) 

IF  (NFR(L)  .EQ.  0)  GO  TO  180 
NFRM=NFR ( L ) 

GO  TO  (170,170,175,175,170,170,170)  NFRM 
170  CONTINUE 

READ  1 1 07, A1 , A2, (TSR(L, I ) , I =1 , 7) 

PRINT  1 1 07, A1 , A2, ( TSR ( L, I ) , I =1 , 7) 

IF  (NFR(L)  .NE.  2  .AND.  NFR(L)  . NE .  7)  GO  TO  180 
READ  1 1 07, A1 , A2, ( TSR ( L, I ) , I =8, 14) 

PRINT  1 1 07, A1 , A2, ( TSR ( L, I ) , I =8, 14) 

GO  TO  180 

175  CALL  SHEAR2CLSHB, 5, L, 1,1, I H , SX, SY , SXY , P, A1 , DH, DOLD, A2, E, A3, A4 , 

1  A5, A6, EX, EY , EXY, F, A7, A8,A9,A10,A1 1 , A12) 

LSHB= 1 

IF  (NFR(L)  .EQ.  4)  GO  TO  170 
180  IF  (NPOR(L)  .EQ.  0)  GO  TO  190 

READ  1104,  A1 ,  A2,  RHO(L),  A3,  A4 ,  MU ( L ) 

PRINT  1104, A1,  A2,  RHO(L),  A3,  A4 ,  MU ( L ) 

IF  (NPOR(L)  .EQ.  4)  GO  TO  185 

CALL  POREQST ( 0 , 5, L, SP(L) , RHO ( L ) , A2, A3, A4 , A5, A6, A7, A8, A9, A1 0, 

1  EQSTCCL) , EQSTD (L) , EQSTG ( L ), EQSTS ( L ),  A1 1  ,  A12,  A13) 

GO  TO  190 
185  CONTINUE 

CALL  CAP 1 ( -1 , 5, L, N, IH, DH, DOLD , E, EX, EY, EZ, EXY , SX, SY , SZ, SXY , ZEVP, 

1  K, J , TEVP ) 

190  CONTINUE 

IF  (NDS(L)  .EQ.  7)  CALL  EP(0,L,N) 

IF  (NPR(L)  .EQ.  1)  CALL  EXPLODE ( 1 , 5 , L, SP ( L ), D ( 1 ), DOLD, P ( 1 ), Q, 

1  COMC 1 9 ) , X ( 1 ) , DX , Y ( 1 ) , D Y , J , K , 0 . ) 

IF  ( NYAM  .EQ.  0)  GO  TO  195 

READ  1107,  A1,A2,  YCCL),  MU ( L ) , YAD ( L ) 

PRINT  1 1 07, A1 , A2,  YCCL),  MU ( L ) , YAD ( L ) 

195  IF  (SPCL)  .EQ.  0.)  SP ( L ) =SQRT (( EQSTC ( L )+ 1 . 33333*MU ( L )) /RHO ( L ) ) 

IF  (NCMPCL)  .GT.  0)  SP(L)=SSP 
ESC ( L , 1 ) =RHO ( L ) 

ESC  C  L , 2 ) = EQSTC ( L ) 

ESC ( L , 3 ) = EQSTD ( L ) 

ESC ( L , 4 ) = EQSTS ( L ) 

ESCCL, 5) =MU(L) 

ESC (L,6)=YAD(L) 

ESCCL, 7) =RHOS(L) 

ESCCL, 9 ) =EQSTG ( L ) 

ESCCL, 1 0 ) = YC ( L ) 

200  G2CL) =2. *MU ( L ) 

CALL  FOR  ADDED  DATA 
IF  (NEXTRA  .GT.  0)  CALL  EXTRATC 1 ) 

******  CELL  LAYOUT  ****** 

PRINT  1800, SP 
1800  FORMAT ( *  SP=*  1P6E10.3) 

IF  ( NSTART  .GE.  1)  GO  TO  500 
C 

NSTDX=4 
NSTD= 1 3 

DO  250  NB= 1 , NBLOCK 

READ  1030,  A1 , A2, K1 ,K2, A3, A4, (XAC I ) , I = 1 , 4 ) , A5 , A6 , MAT 
PRINT  1 030, A1 , A2,K1 , K2, A3, A4, (XAC I ) , I =1 ,4) , A5, A6, MAT 
READ  1030,  A1 , A2, J1 , J2, A3, A4, (YAC I ) , I =1 ,4) 

PRINT  1030,  A1 , A2, J1 , J2, A3, A4, (YAC I ) , I =1 ,4) 

DJDK=( J2-J1 ) * ( K2-K1 ) 


LAYOUTT 

14^ 

LAYOUTT 

141 

LAYOUTT 

142 

LAYOUTT 

143 

LAYOUTT 

144 

LAYOUTT 

145 

LAYOUTT 

146 

LAYOUTT 

147 

LAYOUTT 

148 

LAYOUTT 

149 

LAYOUTT 

1  50 

LAYOUTT 

151 

LAYOUTT 

1  52 

LAYOUTT 

153 

LAYOUTT 

1  54 

LAYOUTT 

155 

LAYOUTT 

1  56 

LAYOUTT 

157 

LAYOUTT 

158 

LAYOUTT 

1  59 

LAYOUTT 

160 

LAYOUTT 

161 

LAYOUTT 

1  62 

LAYOUTT 

1  63 

LAYOUTT 

1  64 

LAYOUTT 

1  65 

LAYOUTT 

1  66 

LAYOUTT 

1  67 

LAYOUTT 

1  68 

LAYOUTT 

169 

LAYOUTT 

170 

LAYOUTT 

171 

LAYOUTT 

172 

LAYOUTT 

1  73 

LAYOUTT 

1  74 

LAYOUTT 

1  75 

LAYOUTT 

1  76 

LAYOUTT 

1  77 

LAYOUTT 

1  78 

LAYOUTT 

179 

LAYOUTT 

1  80 

LAYOUTT 

181 

LAYOUTT 

1  82 

LAYOUTT 

1  83 

LAYOUTT 

1  84 

LAYOUTT 

1  85 

LAYOUTT 

1  86 

LAYOUTT 

187 

LAYOUTT 

1  88 

LAYOUTT 

1  89 

LAYOUTT 

1  90 

LAYOUTT 

191 

LAYOUTT 

1  92 

LAYOUTT 

1  93 

LAYOUTT 

1  94 

LAYOUTT 

1  95 

LAYOUTT 

1  96 

LAYOUTT 

1  97 

LAYOUTT 

1  98 

LAYOUTT 

1  99 

LAYOUTT 

200 

LAYOUTT 

201 

LAYOUTT 

202 

LAYOUTT 

203 

LAYOUTT 

204 

LAYOUTT 

205 

LAYOUTT 

206 

LAYOUTT 

207 

LAYOUTT 
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SUBROUTINE  LAYOUTT  (Continued) 


21  0 
250 


DO  210  K=K1,K2 
DO  210  J  =  J1 , J2 

IF  ( XL (K,  J )  .EQ.  -999, )XL(K, J)=((XA(1 )*(J2-J) 
-+ ( XA (2)*(J2-J) +XA( 3 ) * ( J- J 1 ) ) *(K-K1 ) J/DJDK 
IF  ( YL (K, J )  . EQ .  -999, )YL(K,J)=( (YA(1 )*(J2-J) 

-+(YA(2)*(J2-J)+YA(3)*(J-J1 ) )*(K-K1 ) J/DJDK 
IF  (K  . GT .  K1  .AND.  J  . GT .  J1)  MM(K, J ) =MAT 
CONTINUE 
CONTINUE 
LVARM=1 


+XA (4 ) * ( J - J 1 ) ) * (K2-K) 
+YA(4)*(J-J1 ) ) * (K2-K ) 


JM=1 


DO  300  K  =  1  , KM AX 
DO  280  J=1 , JMAX 

IF  (J  .GT.  1  .AND.  LVAR (K, J - 1 )  . GT .  0)  LVAR ( K, J ) = - 1 

IF  ( XL ( K, J ) . EQ . -999 .  .OR.  YL(K,J)  , EQ .  -999.)  GO  TO  280 

KM  =  K 


JM=MAXO ( JM, J) 

LVAR (K . J ) = LVARM 
X( LVARM ) =XL ( K . J ) 

Y ( LVARM ) =YL (K . J ) 

1 H( LVARM) =2 
MAT  =MM(K,  J ) 

IF  (MAT  . EQ.  0)  GO  TO  260 

A1 24  =  0. 5* (XL (K,  J-1  )*(YL(K,J)-YL(K-1 , J) ) 

1 -XL (K, J ) * ( YL ( K j J-1 ) -YL(K-1 , J) ) +XL (K- 1 , J ) * ( YL (K,  J-1 ) -YL ( K, J ) ) ) 

A234=0.5*(XL(K, J-1 )*(YL(K-1 , J)-YL(K-1, J-1 ) )+XL(K-1 , J)* 

-CYL(K-1 , J-1 ) -YL(K, J-1 ) ) +XL (K- 1 ,J-1)*(YL(K,J-1)-YL(K-1,J))) 

XZ=0. 25* (XL(K, J)+XL(K, J-1 )+XL(K-1 , J)+XL(K-1 , J-1 )  ) 

YZ=0. 25* ( YL ( K . J ) +YL ( K , J-1 )+YL(K-1 , J)+YL(K-1 . J-1 ) ) 

D ( LVARM )=RH0( MAT) 

IF  ( YC(MAT)  .NE.  0.)  YY (LVARM) =YC(MAT) 

IF  ( NPR ( MAT )  .NE.  1 )  GO  TO  255 
DX=X( LVARM) -XL ( K- 1 ,J) 

CALL  EXPLODE ( 2. 5. MAT , E( LVARM) , D( LVARM ) , DOLD, P( LVARM ) . Q. COM( 1 8+ 

1  LVARM) , XZ,  DX , YZj  Y ( LVARM ) - YL (K, J-1  )  ,  J, K, COM( LVARM+ 1 9 ) ) 
C0M(LVARM+2O) =DX 

255  CONTINUE 

IF  ( NTRI (MAT)  . EQ .  0)  GO  TO  258 
M ( LVARM ) =  LVARM+NSTDX+NSTD+NVAR ( MAT ) -5 
LVAR2=M( LVARM) 

D ( LVAR2 )  =  RHO ( MAT ) 

IF  (NPR (MAT)  .NE.  1)  GO  TO  256 
DX  =  X( LVARM) -XL (K-1  ,J) 

CALL  EXPL0DE( 2. 5. MAT , E ( LVAR2 ) , D ( LVAR2 )  ,  DOLD,  P ( LVAR2 )  ,  Q,  COM (  1  8  + 

1  LVAR2 ) , XZ, DX, YZ, Y ( LVARM )-YL(K,J-1),J,K, COM ( LVAR2+ 19)) 

COM ( LVAR2+20 ) =  DX 

256  CONTINUE 
A(LVARM) =A1 24 
A ( LVAR2 ) =  A234 

Z ( LVARM )  =  D( LVARM ) *  A ( LVARM ) 

Z ( LVAR2) =  D ( LVAR2) *A( LVAR2) 

IF  ( I JBUND  .GT.  0)  Z( LVARM ) =D ( LVAR2) *A1 24* (YL (K, J ) +YL (K- 1 , J ) + 

1  YL ( K, J- 1 ) ) 

IF  ( I JBUND  .GT.  0)  Z( LVAR2 ) =D ( LVAR2 ) *A234* ( YL ( K- 1 , J ) +YL ( K- 1 , J -  1 )  + 
1  YL ( K, J- 1 ) ) 

IF  ( YC(MAT)  . NE .  0.)  YY ( LVAR2) = YC (MAT ) 

LVARM=LVAR2 
GO  TO  260 

258  A( LVARM )=A124+A234 

Z ( LVARM ) =  D ( LVARM ) *  A ( LVARM ) 

C  Z  IS  COMPUTED  AS  1.5/PI  TIMES  ACTUAL  NUMBER  FOR  AX  I  SYMMETRIC  CASE 

IF  ( I JBUND  .GT.  0)  Z( LVARM ) =D ( LVARM )* (A1 24* ( YL ( K, J ) +YL ( K- 1 , J ) + 

1  YL(K, J-1 ) ) +A234* ( YL (K- 1 , J)+YL(K-1 , J-1 )+YL(K, J-1 ) ) ) 

260  CONTINUE 

LVARM = LVARM +NSTDX 

IF  (MAT  .NE.  0)  LVARM =LVARM+NVAR( MAT ) +NSTD 
280  CONTINUE 
300  CONTINUE 
KMAX=KM 
JMAX=JM 


*******  INITIALIZE  VELOCITIES  IN  ONE  BLOCK 

IF  (IVTYPE  .GT.  1)  GO  TO  350 
IF  (IVTYPE  .EQ.  0)  GO  TO  450 
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SUBROUTINE  LAYOUTT  (Continued) 


READ  1 032, A 1 , A2, JU, A3, A4 , KU, A5 , A6, UZERO 

LAYOUTT 

29U 

PRINT  1 032, A1 , A2, JU, A3, A4,KU,  A5,  A6,  UZERO 

LAYOUTT 

291 

AMASS  =  0 . 

LAYOUTT 

292 

BMASS  =  0 . 

LAYOUTT 

293 

UZ I NT=UZERO 

LAYOUTT 

294 

DO  310  J  =  2, JU 

LAYOUTT 

295 

IF  ( MM ( KU , J )  . LE .  0  .OR.  MM(KU+1,J)  . LE .  0)  GO  TO  310 

LAYOUTT 

296 

MA=MM ( KU , J ) 

LAYOUTT 

297 

MB  =  MM ( KU+1 , J) 

LAYOUTT 

298 

AMASS = AM ASS+RHO (MA ) * (XLCKU, J) -XLCKU-1 , J) ) 

LAYOUTT 

299 

BMASS=BMASS+RHO (MB) * (XL (KU+1 , J ) -XL (KU , J ) ) 

LAYOUTT 

300 

310 

CONTINUE 

LAYOUTT 

301 

IF  (AMASS+BMASS  . GT .  0..AND.  IVTYPE  .EQ.-1)  UZ I NT= UZERO*BMASS/ 

LAYOUTT 

302 

1  (AMASS+BMASS) 

LAYOUTT 

303 

IF  (AMASS+BMASS  . GT .  O..AND.  IVTYPE  . EQ .  1)  UZ I  NT  =  UZERO* AMASS/ 

LAYOUTT 

304 

1  (AMASS+BMASS) 

LAYOUTT 

305 

DO  325  K= 1 , KMAX 

LAYOUTT 

306 

DO  325  J=1 , JMAX 

LAYOUTT 

307 

IF  ( LVAR ( K, J )  .LE.  0)  GO  TO  320 

LAYOUTT 

308 

LM=LVAR (K, J ) 

LAYOUTT 

309 

IF  (K  .GT.  KU  .AND.  IVTYPE  . EQ .  -1)  XD(LM)=UZERO 

LAYOUTT 

310 

IF  (K  .LT.  KU  .AND.  IVTYPE  . EQ .  1)  XD(LM)=UZERO 

LAYOUTT 

31  1 

IF  (J  .LE.  JU  .AND.  K  . EQ .  KU)  XD(LM)=UZINT 

LAYOUTT 

312 

320 

CONTINUE 

LAYOUTT 

313 

325 

CONTINUE 

LAYOUTT 

314 

IF  (KCHEK  . NE .  0)  GO  TO  450 

LAYOUTT 

315 

KCHEK=KMAX 

LAYOUTT 

316 

IF  (IVTYPE  .EQ.  1)  KCHEK=KU+3 

LAYOUTT 

31  7 

GO  TO  450 

LAYOUTT 

318 

C 

LAYOUTT 

319 

c  *  ft* *** *  INITIALIZE  X  AND  Y  VELOCITIES  IN  SEVERAL  BLOCKS 

LAYOUTT 

320 

350 

CONTINUE 

LAYOUTT 

321 

DO  400  NB  = 1 , NVBLK 

LAYOUTT 

322 

READ  1031.A1.A2jK1jK2jA3.A4, ( X A ( I ) , 1=1 ,4) 

LAYOUTT 

323 

PRINT  1 031 . A1 . A2.K1 . K2, A3. A4. (XA( I ) , I =1 ,4) 

LAYOUTT 

324 

READ  1031 . A1 ,A2j  J1 . J2,A3. A4,  (YA( I ) ,  1=1 ,4) 

LAYOUTT 

325 

PRINT  1031 ,A1 . A2. J1 . J2, A3. A4. (YA( I ) , I =1 ,4) 

LAYOUTT 

326 

KCHEK  =  MAXO ( KCHEK. K1 +2.  K2+2) 

LAYOUTT 

327 

IF  ( K1  .LT.  K2 )  GO  TO  370 

LAYOUTT 

328 

IF  (J1  .LT.  J2)  GO  TO  360 

LAYOUTT 

329 

C 

INITIALIZE  VELOCITY  AT  ONE  POINT 

LAYOUTT 

330 

LM=  LVAR ( K1 . J1 ) 

LAYOUTT 

331 

XD( LM) =XA( 1 ) 

LAYOUTT 

332 

YD ( LM ) =YA ( 1 ) 

LAYOUTT 

333 

GO  TO  400 

LAYOUTT 

334 

C 

INITIALIZE  VELOCITY  AT  SEVERAL  J  VALUES,  ONE  K 

LAYOUTT 

335 

360 

DY=YL (K1 . J2) -YL(K1 . J1 ) 

LAYOUTT 

336 

IF  (ABS(DY)  .LE.  1.E-06)  GO  TO  390 

LAYOUTT 

337 

DO  365  J=J1 . J2 

LAYOUTT 

338 

LM=LVAR(K1 . J) 

LAYOUTT 

339 

XD(LM)  =  (XA( 1 ) * (YL(K1 . J2) -YL(K1 . J) ) +XA ( 2 ) * ( YL (K1  ,  J) -YL(K1  ,  J1  ) ) )/DY 

LAYOUTT 

340 

365 

YD(LM)  =  (YA( 1 ) *(YL(K1 . J2) -YL(K1 . J) ) +YA (2) * ( YLCK1  ,  J) -YL(K1  ,  J1 ) ) )/DY 

LAYOUTT 

341 

GO  TO  400 

LAYOUTT 

342 

C 

INITIALIZE  VELOCITY  AT  SEVERAL  K  VALUES,  ONE  J 

LAYOUTT 

343 

370 

IF  ( J 1  .LT.  J2)  GO  TO  380 

LAYOUTT 

344 

DX=XL(K2, J1 ) -XL(K1 . J1 ) 

LAYOUTT 

345 

IF  (ABS(DX)  .LE.  1.E-06)  GO  TO  390 

LAYOUTT 

346 

DO  375  K=K 1 . K2 

LAYOUTT 

347 

LM=LVAR(K, J1 ) 

LAYOUTT 

348 

XD(LM) = (XA( 1 ) *(XL(K2, J1 ) -XL(K, J1 ) ) +XA ( 2 ) * ( XL (K, J1 ) -XL(K1 , J1 ) ) )/DX 

LAYOUTT 

349 

375 

YD(LM)  =  (YA( 1 )*(XL(K2, J1 ) -XL(K, J1 ) ) +YA ( 2) * ( XL (K, J1 ) -XL(K1  ,  J1  ) ) )/DX 

LAYOUTT 

350 

GO  TO  400 

LAYOUTT 

351 

C 

INITIALIZE  VELOCITY  FOR  SEVERAL  J  AND  K  VALUES 

LAYOUTT 

352 

C 

INTERPOLATION  IS  LINEAR  IN  J  DIRECTION  AND  ON  BOUNDARIES  OF  BLOCK 

LAYOUTT 

353 

380 

I F  ( ABS ( ( XL ( K2 . J 1 ) -XL(K1 . J1 ) ) * ( YLCK1 . J2 ) -YL (K 1  ,  J 1 ) ) * ( XL ( K2,  J2 ) - 

LAYOUTT 

354 

1  XL(K1 , J2> ) *(YL(K2, J2) -YL(K2, J1 ) ) )  .LE.  1.E-25)  GO  TO  390 

LAYOUTT 

355 

DO  385  K=K1 . K2 

LAYOUTT 

356 

DO  385  J= J1 . J2 

LAYOUTT 

357 

LM=LVAR ( K . J ) 

LAYOUTT 

358 

XD(LM) = ( (XA( 1 ) * (XL(K2, J1 ) -XL(K, J1 ) ) +XA ( 2 ) * ( XL ( K , J 1 ) -XL(K1 , J1 ) ) ) 

LAYOUTT 

359 

1  /(XL(K2, J1 ) -XL(K1 . J1 ) )*(YL(K, J2) -YL(K, J) )  +  (XA( 3) * (XL(K, J2) 

LAYOUTT 

360 

2  -XL(K1 . J2) ) +XA ( 4 ) * ( XL ( K2. J2) -XL(K, J2) ) ) / ( XL ( K2 . J2) -XL(K1 . J2) ) 

LAYOUTT 

361 

3  *(YL(K, J)-YL(K, J1 ) ) )/(YL(K, J2)-YL(K, J1 ) ) 

LAYOUTT 

362 

385 

YD(LM) = ( (YA( 1 ) * (XL(K2, J1 ) -XL(K, J1 ) ) +YA ( 2 ) * ( XL ( K, J1 ) -XL(K1 . J1 ) ) ) 

LAYOUTT 

363 

1  /(XLCK2.J1 )-XL(K1 . J1 ) )*(YL(K,J2)-YL(KjJ) )  +  ( YA ( 3 ) * ( XL ( K, J2 ) 

LAYOUTT 

364 
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SUBROUTINE  LAYOUTT  (Continued) 


2  -XL ( K1 , J2) )+YA(4)*(XL(K2, J2)-XL(K, J2) ) ) / ( XL (K2, J2 ) -XL ( K1 , J2 ) ) 

3  * ( YL(K, J ) -YL(K, J1 ) ) )/(YL(K,J2)-YL(K,J1  ) ) 

GO  TO  400 

390  DO  395  K=K1,K2 
DO  395  J=J1 , J2 
LM=LVAR(K, J) 

AK1 =AJ1 =0. 5 

IF  (K1  .NE.  K2)  AK1 =(K-K1 )/(K2-K1 ) 

AK2= 1 . -AK1 

IF  (J1  .NE.  J2 )  AJ1=(J-J1 )/(J2-J1 ) 

AJ2= 1 . -AJ1 

XD(LM)  =  (XA( 1 ) *AK2+XA ( 2 ) *AK1 ) *AJ2+ (XA ( 3) *AK1 +XA ( 4 ) *AK2 ) *A J 1 
395  YD ( LM ) = ( YA ( 1 ) *AK2+YA( 2) *AK1 ) *AJ2+ ( YA ( 3 ) *AK 1 +YA ( 4 ) *AK2 ) * AJ1 

400  CONTINUE 
C 
C 

C  CALL  FOR  ADDED  DATA 

450  IF  (NEXTRA  .GT.  0)  CALL  EXTRAT ( 2 ) 

C  *******  PRINT  INITIAL  LAYOUT 
C 

PRINT  1 250, DI SCPT 
ZER0=O . 

DO  470  K= 1 , KMAX 
DO  460  J=1 ,  JMAX 
LM=LVAR(K,  J ) 

IF  (LM  ,LE.  0)  GO  TO  460 
IF  (MM(K,  J )  .GT.  0)  GO  TO  455 

PRINT  1 280, J, K, MM(K, J) , LM, X(LM) , Y (LM) , ZERO, ZERO, ZERO, ZERO, XD(LM)  , 
1  YD ( LM ) , ZERO 
GO  TO  460 
455  MAT  =  MM ( K, J ) 

YYY  =  0 . 

IF  ( YC(MAT)  . NE .  0)  YYY=YY ( LM ) 

PRINT  1 280, J, K, MAT, LM, X( LM) , Y (LM) , A( LM) , D(LM) , Z(LM) , YYY,  XD(LM)  , 

1  YD ( LM ) , E ( LM ) 

460  CONTINUE 
470  CONTINUE 
RETURN 
C 

C  ********|NITIALIZE  VALUES  FROM  A  RESTART  FILE 
C 

500  NST  =  NSTART-1 

I F ( NST  .EQ.  0)  GO  TO  515 
DO  510  1=1 , NST 
READ  ( 1 )  A1 
510  CONTINUE 

515  READ  (1)  ( COM (I ) , I = 1 , JSI ZE ) , ( LVAR ( I ) , I = 1 , JK ) , ( MM ( I ) , I = 1 , JK) , JMAX, 

1  JM I N, KMAX, KMI N, TYME 
C 

C  CALL  FOR  ADDED  DATA 

IF  (NEXTRA  .GT.  0)  CALL  EXTRAT ( 3 ) 

IF  (KCHEK  .EQ.  0)  KCHEK=KMAX 

PRINT  1290 

DO  490  K= 1 , KMAX 

DO  480  J=1 , JMAX 

LM=LVAR( K, J ) 

I F ( LM  .LE.  0)  GO  TO  480 

PRINT  2000, K, J , P( LM) , SXX ( LM ) , SYY ( LM ) , SZZ ( LM ) , TXY ( LM ) 

1 290  FORMAT (4X, 1 HK, 4X, 1 HJ, 9X, 1  HP, 7X, 3HSXX, 7X, 3HSYY, 7X, 3HSZZ,  7X, 3HTXY ) 
2000  FORMAT (215, 1 P5E1 0.3) 

480  CONTINUE 
490  CONTINUE 
GO  TO  450 

C  ******  FORMATS  ****** 

C 

1 000  FORMAT ( 1  HI  ) 

1001  FORMAT  ( 43H0E0F  ON  INPUT,  FOUND  BY  LAYOUTT,  NORMAL  END) 

1002  FORMAT (1  HO) 

1030  FORMAT  (2A5, 21 5, 2A5,4F1 0. 5,  A5,  A4  ,  I  1  ) 

1031  FORMAT  ( 2A5, 2 1  5, 2A5, 4F1 0 . 2 ) 

1032  FORMAT  ( 2A5,  I  1 0, 2A5,  I  1 0, 2A5, FI  0 . 3 ) 

1 100  FORMAT ( 16A5) 

1104  FORMAT ( 4 ( 2A5 ,  El  0 . 3 ) ) 

1 105  FORMAT ( 8( A6, 14) ) 
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LAYOUTT 
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LAYOUTT 
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LAYOUTT 

368 

LAYOUTT 

369 

LAYOUTT 

370 

LAYOUTT 

371 

LAYOUTT 

372 

LAYOUTT 
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LAYOUTT 

374 

LAYOUTT 

375 

LAYOUTT 

376 

LAYOUTT 

377 

LAYOUTT 

378 

LAYOUTT 

379 

LAYOUTT 
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LAYOUTT 

381 

LAYOUTT 

382 

LAYOUTT 

383 

LAYOUTT 

384 

LAYOUTT 

385 

LAYOUTT 

386 

LAYOUTT 

387 

LAYOUTT 

388 

LAYOUTT 

389 

LAYOUTT 

390 

LAYOUTT 

391 

LAYOUTT 

3S2 

LAYOUTT 

393 

LAYOUTT 

394 

LAYOUTT 

395 

LAYOUTT 

396 

LAYOUTT 

397 

LAYOUTT 

398 

LAYOUTT 

399 

LAYOUTT 

400 

LAYOUTT 

401 

LAYOUTT 

402 

LAYOUTT 

403 

LAYOUTT 

404 

LAYOUTT 

405 

LAYOUTT 

406 

LAYOUTT 

407 

LAYOUTT 

408 

LAYOUTT 

409 

LAYOUTT 

410 

LAYOUTT 

41  1 

LAYOUTT 

412 

LAYOUTT 

413 

LAYOUTT 

414 

LAYOUTT 

415 

LAYOUTT 

416 

LAYOUTT 
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LAYOUTT 
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LAYOUTT 

419 

LAYOUTT 

420 

LAYOUTT 

421 

LAYOUTT 

422 

LAYOUTT 

423 

LAYOUTT 

424 

LAYOUTT 

425 

LAYOUTT 

426 

LAYOUTT 

427 

LAYOUTT 

428 

LAYOUTT 

429 

LAYOUTT 

430 

LAYOUTT 

431 

LAYOUTT 

432 

LAYOUTT 

433 

LAYOUTT 

434 

LAYOUTT 

435 

LAYOUTT 

436 

LAYOUTT 

437 

LAYOUTT 

438 
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SUBROUTINE  LAYOUTT  (Concluded) 


1  106 

FORMAT  ( 8 ( A4 , A3 j  13) ) 

LAYOUTT 

439 

1107 

FORMAT ( 2A5  , 7E1  0.3) 

LAYOUTT 

440 

1  108 

FORMAT  (  2A5 ,  El  0 . 3j  2A5 ,  nOJ2(2A5J  110)) 

LAYOUTT 

441 

1  109 

FORMAT  ( 2A5 , 7A1 0) 

LAYOUTT 

442 

1110 

FORMAT ( 2A5,  71 10) 

LAYOUTT 

443 

1111 

FORMAT  (8CA5, A3, 12) ) 

LAYOUTT 

444 

1112 

FORMAT ( 2A5 , 141 5/(1  61  5) ) 

LAYOUTT 

445 

1  1  25 

FORMAT ( 2A5 j 7( I 6,  212) ) 

LAYOUTT 

446 

1  130 

FORMAT ( 6A5j El  0 . 3, A5, A2 ,  3 1 1 , A5, A2, 31 1 ,  (A5, A3, I 2, A5 , A3,  I 2 ) ) 

LAYOUTT 

447 

1250 

FORMAT  (1H1 , 20X, 20A5//4X, #J*,4X, #K*,4X, *M*, *  LVAR#, 1 IX, #X#, 1 IX, 

LAYOUTT 

448 

1  1HY,  1 IX, 1HA,  1 IX,  1HD,  1 IX,  1  HZ, 7X , SHY  I  ELD, 10X,2HXD,  10X,2HYD, 1 IX, 

LAYOUTT 

449 

2  1  HE) 

LAYOUTT 

450 

1  280 

FORMAT  (4 I 5, 5F1 2 . 6, 1P4E12.3) 

LAYOUTT 

451 

1  133 

FORMAT  ( 2A5, 215, 2A5, 215, 2A5, I 9 , I 1 , 2E 1 0 . 4 ) 

LAYOUTT 

452 

END 

LAYOUTT 

453 
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SUBROUTINE  REBAR 


SUBROUTINE  REBAR (LL, I N , JC , I C , M , N , I H, DH, DGLD, SX, SY, SZ, TXY, E, P, 

REBAR 

2 

1  DEX , DEY  , DEZ, DEXY , F , THETA , DTHETA, ESC, FS, DSTL,SRS, 

REBAR 

3 

2  ZEVP,  TEVP,  Yj ROLDj  I  PRINT) 

REBAR 

4 

c 

SRI  AND  SR3  ARE  OLD  AND  NEW  STRESSES  ON  STEEL. 

REBAR 

5 

c 

SR2  AND  SR4  ARE  OLD  AND  NEW  STRESSES  ON  CONCRETE. 

REBAR 

6 

c 

ALL  STRESSES  ARE  DEVIATORS  EXCEPT  SRS  ARRAY 

REBAR 

7 

c 

STRESSES  ARE  POSITIVE  IN  TENSION,  PRESSURE  IS  POSITIVE  IN  COMP. 

REBAR 

8 

c 

STRAINS  ARE  POSITIVE  IN  TENSION 

REBAR 

9 

c 

PLANE  OF  REBARS  IS  INITIALLY  NORMAL  TO  THE  X  DIRECTION 

REBAR 

1  0 

c 

THETA  IS  OLD  VALUE  OF  ROTATION  ANGLE,  POSITIVE  TOWARDS  Y 

REBAR 

1  1 

c 

DTHETA  IS  INCREMENT  OF  THETA  ON  CURRENT  CYCLE 

REBAR 

12 

DIMENSION  SR (4 ) , SRS(4) , SRI (4) , SR2(4) , DEC ( 4 ) , DES(4) , DE(4) , SR3(4) , 

REBAR 

1  3 

1  SR4 ( 4 ) , THET ( 6 ) ,  IMC(6) ,  I  MS ( 6 ) , FSTEEL ( 6 ) , ESC (6, 20) 

REBAR 

14 

IF  (LL  .GE.  0)  GO  TO  15 

REBAR 

15 

READ  1 004 , A 1 , FSTEEL ( M ) , A2 , THET ( M ) , A3 , IMC(M),A4, IMS(M) 

REBAR 

16 

PRINT  1 004 , A  1 , FSTEEL ( M ),A2, THET (M), A3,  I MC ( M ) , A4 ,  I  MS ( M ) 

REBAR 

17 

1004 

FORMAT (A10, E10. 3,A10, E10. 3,A10, I10,A10,I10) 

REBAR 

1  8 

LS=  0 

REBAR 

1  9 

MC= I MC ( M ) 

REBAR 

20 

MS= I  MS ( M ) 

REBAR 

21 

SX=SQRT ( ( FSTEEL ( M) * ( ESC (MS, 2)+1 . 33*ESC(MS, 5) )+( 1 , -FSTEEL ( M ) ) * 

REBAR 

22 

1  ( ESC ( MC, 2 ) +1 . 33*ESC ( MC, 5 ) ) )/( FSTEEL ( M ) * ESC ( MS, 1 )+( 1 . -FSTEEL (M) )* 

REBAR 

23 

2  ESC ( MC, 1 ) ) ) 

REBAR 

24 

DH= FSTEEL (M ) #ESC ( MS, 1 )+( 1 . -FSTEEL(M) ) *ESC(MC, 1 ) 

REBAR 

25 

Y=ESC ( MS, 10) 

REBAR 

26 

RETURN 

REBAR 

27 

15 

I F (  ROLD  . NE.  0. )  GO  TO  18 

REBAR 

28 

MC= I MC ( M ) 

REBAR 

29 

MS= I  MS ( M ) 

REBAR 

30 

FS=FSTEEL ( M) 

REBAR 

31 

THETA=THET ( M) 

REBAR 

32 

DSTL  =  ESC ( MS,  1  ) 

REBAR 

33 

ROLD  =  ESC ( MC ,  1  ) 

REBAR 

34 

1  8 

CONTI NUE 

REBAR 

35 

MC= I MC ( M )  S  MS= I  MS ( M ) 

REBAR 

36 

NTRY  = 1 

REBAR 

37 

RHOS  =  ESC ( MC ,  7) 

REBAR 

38 

EQSTC  =  ESC ( MC ,  2) 

REBAR 

39 

GRUN=ESC ( MC ,  9) 

REBAR 

40 

AMU  =  ESC ( MC ,  5 ) 

REBAR 

41 

CR I  T=  1 . E7 

REBAR 

42 

TEVPSV  =  TEVP 

REBAR 

43 

ZEVPSV  =  ZEVP 

REBAR 

44 

YSV  =  Y 

REBAR 

45 

I HSV= I H 

REBAR 

46 

I  PR  I  NT  =  0 

REBAR 

47 

FS1 =FS= (DOLD-ROLD) /(DSTL-ROLD) 

REBAR 

48 

C0S2TH=C0S ( 2 . #THETA ) 

REBAR 

49 

S I N2TH=S I N ( 2 . *THETA ) 

REBAR 

50 

C 

ROTATE  STRAIN  INCREMENTS  TO  AXIS  OF  REBARS 

REBAR 

51 

SI N2TH1 =SI N2TH+DTHETA#C0S2TH  $  C0S2TH 1 = C0S2TH -S I N2TH*DTHETA 

REBAR 

52 

DE ( 1  ) ■ ( DEX+DEY  +  C  DEX -DEY ) #C0S2TH1 ) /2 . +DEXY *S I N2TH 1 

REBAR 

53 

DE( 2) = (DEX+DEY- (DEX-DEY) *C0S2TH1  )/2.  -DEXY*SI  N2TH1 

REBAR 

54 

DE ( 3 ) =  DEZ 

REBAR 

55 

DE ( 4 ) =- (DEX-DEY ) *SI N2TH1 /2 . +DEXY*C0S2TH  1 

REBAR 

56 

C 

ROTATE  STRESSES  TO  AXIS  OF  REBARS 

REBAR 

57 

SR ( 1  )  =  (SX+SY  +  (SX-SY) *C0S2TH)/2. +TXY  *S I N2TH 

REBAR 

58 

SR( 2) = (SX+SY- (SX-SY) *C0S2TH)/2, -TXY*SI N2TH 

REBAR 

59 

SR ( 3 ) =SZ 

REBAR 

60 

SR (4) =- (SX-SY )*SI N2TH/2. +TXY*C0S2TH 

REBAR 

61 

RL  =  0 .  $  RR= 1  . 

REBAR 

62 

IF  (IPRINT  .EQ.  1)  PRINT  1 1 20 , ( SR ( I ) , I = 1 , 4 ) , SX, SY , SZ, TXY , C0S2TH, 

REBAR 

63 

1  SIN2TH 

REBAR 

64 

c  *******  ********* K** 

REBAR 

65 

c 

BEGINNING  OF  COMPUTATIONAL  LOOP  FOR  EACH  STRAIN  INCREMENT 

REBAR 

66 

120 

PS=PS1 =- (SRS( 1 ) +SRS ( 2 ) +SRS ( 3 ) ) / 3 . 

REBAR 

67 

FS  =  FS1 

REBAR 

68 

PC=PC1 = (P-PS1 #FS)/( 1 . -FS) 

REBAR 

69 

DO  170  1=1,4 

REBAR 

70 

SRI ( I ) =SRS ( I )+PS1 

REBAR 

71 

IF  (I  .EQ.  4)  SRI ( 4 ) =SRS ( 4 ) 

REBAR 

72 

SR2 ( I ) = ( SR ( I ) -SRI ( I ) #FS) / ( 1 . "FS) 

REBAR 

73 

170 

DEC ( I  ) =  DES ( I  ) =  DE ( I  )*RR 

REBAR 

74 

DES ( 1  ) =DEC ( 1  ) *  ESC ( MC , 2 ) /ESC ( MS, 2) 

REBAR 

75 

118 


SUBROUTINE  REBAR  (Continued) 


DEC( 1 ) = ( DE ( 1 ) *RR-DES ( 1 > *FS) / < 1 . -FS) 

REBAR 

76 

18D 

NC  =  0 

REBAR 

77 

c  *******  *********** 

REBAR 

78 

C 

BEGINNING  OF  ITERATION  LOOP 

REBAR 

79 

2DD 

NC=NC+1 

REBAR 

8D 

DO  210  1=1,4 

REBAR 

81 

SR3 ( I ) =SR 1 ( I ) 

REBAR 

82 

210 

SR4 ( I ) =SR2 ( I ) 

REBAR 

83 

TEVP=TEVPSV 

REBAR 

84 

ZEVP=ZEVPSV 

REBAR 

85 

Y  =  YSV 

REBAR 

86 

I H= I HSV 

REBAR 

87 

PS=PS1  $  PC=PC1 

REBAR 

88 

RX=SR4 ( 1 ) -PC  $  RY=SR4 ( 2 ) -PC  $  RZ=SR4(3)-PC  $  RXY=SR4(4) 

REBAR 

89 

DEST  = ( DEC ( 1 ) +DEC ( 2 ) +DEC ( 3 ) )/3. 

REBAR 

90 

RH=ROLD* ( 2 . -DEST)/ (2. +DEST ) 

REBAR 

91 

IF  (IPRINT  .EQ.  1)  PRINT  1 DD2, RH, ROLD, RX, RY, RZ, RXY, ZEVP, TEVP 

REBAR 

92 

CALL  CAP  1  (LS,  INjMCjN,  IH,RH,  ROLD ,  E ,  DEC(  1  )  ,  DEC(2) ,  DECO)  ,  DEC  ( 4 )  , 

REBAR 

93 

1  RX, RY , RZ, RXY , ZEVP , I C, JC, TEVP) 

REBAR 

94 

IF  (IPRINT  .EQ.  1)  PRINT  1  D03, RH , ROLD, RX, RY, RZ, RXY, ZEVP, TEVP 

REBAR 

95 

PC= - ( RX+RY  +RZ ) /3 . 

REBAR 

96 

SR4 ( 1  ) =RX+PC  $  SR4 ( 2 ) =RY  +PC  $  SR4(3)=RZ+PC  $  SR4(4)=RXY 

REBAR 

97 

DEST  = ( DES ( 1  ) +DES ( 2 ) +DES ( 3 ) )/3. 

REBAR 

98 

D=DSTL# ( 2 . -DEST ) / ( 2 . +DEST) 

REBAR 

99 

CALL  EPLASCJC, I C , MS , SR3 , PS, DES, ESC, D , Y ) 

REBAR 

1  OD 

SCTEST  =  SR4 ( 1  ) -PC  $  SSTEST  =  SR3 ( 1 ) -PS 

REBAR 

1  D 1 

IF  (IPRINT  .EQ.  1)  PRINT  1 DD1 , NC, DES( 1 ) , DEC( 1 ) , PC, PS,  (SRI ( I  )  ,  I =1 , 4 

REBAR 

102 

1  ) , (SR2 ( I ) , I =1 , 4) , ( SR3 ( I ) , I =1 ,4) , (SR4( I ) , I =1 ,4) , SCTEST, SSTEST 

REBAR 

103 

IF  ( ABS ( SR4 ( 1 ) -PC-SR3( 1 ) +PS )  . LT .  CRIT)  GO  TO  290 

REBAR 

104 

DEZA=DES ( 1 )  $  DSZA=SR4( 1 ) -SR3( 1 )  -PC+PS 

REBAR 

1D5 

IF  (NC  . EQ.  1 )  GO  TO  25D 

REBAR 

1  06 

IF  (NC  .LT.  12)  GO  TO  260 

REBAR 

1  07 

IF  ( NTRY  LT.  5)  GO  TO  45D 

REBAR 

1  08 

C 

ABORT  PROVISION 

REBAR 

1  09 

PRINT  1 240, JC, I C, N, PS, PC, SSTEST, SCTEST, SRI , SR2 , SR3 , SR4 , DES, DEC 

REBAR 

1  1  0 

1240 

FORMAT (IX,*  ABORT  IN  REBAR  FOR  NTRY  EQUALS  5  FOR  J=*,I5,*  I=*,I5, 

REBAR 

1  1  1 

1  *  ON  CYCLE  *  ,  15,/,  IX,*  PS=*,E10.3,*  PC=*,E10.3,*  SSTEST=  * ,  El  0 . 3, 

REBAR 

1  12 

2  *  SC TEST =  * , E 1 0 . 3  / ,  #  SRI =# , 4E1 0.3,*  SR2  =  * , 4E1 0 . 3 ,  /  ,  *  SR3  =  * , 4E 1 0 . 3, 

REBAR 

1  1  3 

3  *  SR4=# , 4E1 0 . 3, /, *  DES= * , 4E 1 0 . 3 , *  DEC= * , 4E 1 0 . 3 ) 

REBAR 

1  14 

GO  TO  320 

REBAR 

1  15 

C 

PREPARATION  FOR  SECOND  ITERATION 

REBAR 

1  16 

250 

DES ( 1 ) =DES( 1 ) +( SR4 ( 1 ) -PC-SR3( 1 ) +PS )/( ESC (MC, 2 ) *FS/ ( 1 . -FS)+ESC(MS, 2 

REBAR 

1  1  7 

1  )  ) 

REBAR 

1  1  8 

DEC ( 1 ) = (DE( 1 ) *RR  -DES ( 1 ) *FS)/( 1 . -FS) 

REBAR 

1  19 

GO  TO  280 

REBAR 

120 

C 

REGULA  FALSI  BRANCHES 

REBAR 

121 

26D 

IF  (NC  .EQ.  2)  GO  TO  262 

REBAR 

122 

IF  (DSZC  .GT.  0.)  GO  TO  265 

REBAR 

1  23 

IF  (DSZB  .LT.  D. )  GO  TO  262 

REBAR 

124 

IF  ( DSZA  .GT.  D.)  GO  TO  265 

REBAR 

125 

262 

DES ( 1 ) =DEZA+ ( DEZB -DEZA ) / ( DSZB -DSZA ) * ( -DSZA ) 

REBAR 

126 

IF  (NC  .EQ.  6  .OR.  NC  . EQ .  ID)  DES( 1 ) =D . 5* ( DEZA+DEZB ) 

REBAR 

127 

GO  TO  27D 

REBAR 

128 

265 

DES ( 1 ) =DEZA+( DEZC-DEZA) / ( DSZC -DSZA) * ( -DSZA) 

REBAR 

129 

IF  (NC  , EQ .  6  .OR.  NC  . EQ .  10)  DES ( 1 ) = D , 5* ( DEZA+DEZC ) 

REBAR 

1  3D 

270 

DEC ( 1 ) = ( DE ( 1 ) *RR  -DES ( 1 ) *FS) / ( 1 . -FS) 

REBAR 

131 

IF  (NC  .GT.  2)  GO  TO  275 

REBAR 

1  32 

IF  (DSZA  .LT.  DSZB)  283,279 

REBAR 

1  33 

275 

IF  (DSZA  . GT .  DSZB  .OR.  DSZA  . LT .  DSZC)  GO  TO  277 

REBAR 

1  34 

IF  (DSZA  .LT.  0. )  283,280 

REBAR 

1  35 

277 

IF  (DSZB  .LT.  0.  .AND.  DSZA  . GT .  DSZB)  GO  TO  279 

REBAR 

1  36 

IF  (DSZC  .GT.  0.  .AND.  DSZA  . GT .  DSZC)  282,200 

REBAR 

1  37 

279 

DSZC=DSZB  $  DEZC=DEZB 

REBAR 

1  38 

26D 

DSZB=DSZA  $  DEZB=DEZA  $  GO  TO  20D 

REBAR 

139 

282 

DSZB  =  DSZC  $  DEZB  =  DEZC 

REBAR 

140 

283 

DSZC  =  DSZA  $  DEZC  =  DEZA  $  GO  TO  200 

REBAR 

141 

REBAR 

142 

c 

END  OF  ITERATION  LOOP,  RESET  FOR  NEXT  STRAIN  INCREMENT 

REBAR 

143 

290 

DO  295  1=1,4 

REBAR 

144 

SRI ( I ) =SR3 ( I ) 

REBAR 

145 

295 

SR2 ( I ) =SR4 ( I ) 

REBAR 

146 

I HSV= I H 

REBAR 

147 

YSV  =  Y 

REBAR 

148 

TEVPSV=TE VP 

REBAR 

149 

ZEVPSV=ZEVP 

REBAR 

150 

119 


SUBROUTINE  REBAR  (Concluded) 


FS=FS# ( 1 . +DES ( 1 ) ) / ( FS* ( 1 . +DES( 1 ) )+C 1 , -FS)*( 1 . +DEC ( 1 ) ) ) 

DSTL=D 

ROLD=RH 

PS1=PS  $  PC1=PC 
RL=RL+RR 

IF  (RL  , LT .  .999)  GO  TO  180 

C  ENDING  ROUTINE 

320  CONTINUE 

DO  330  1=1,4 

SRC  I  ) =SR4( I  ) * ( 1  .  -FS) +SR3C I  ) *FS 
330  SRSC I ) =SR3 ( I ) -PS 
SRSC4) =SR3(4) 

THETA2= (THETA+DTHETA) #2. 

SI N2TH1 =SI NCTHETA2)  $  C0S2TH1 =COS( THETA2) 

SX= ( SR ( 1  ) +SR ( 2 )  +  ( SR ( 1 ) -SRC  2) )*C0S2TH1  ) /2 .  -SR C 4 ) *S I N 2TH1 
SY= (SRC  1  ) +SR ( 2 ) - (SRC  1 ) -SRC  2) ) *C0S2TH1 ) /2. +SRC4) *SI N^THI 
SZ=SR ( 3 ) 

TXY=+ ( SR ( 1 ) -SR ( 2 ) )/2. #SI N2TH1 +SR ( 4 ) *C0S2TH1 

IF  (IPRINT  .EQ.  1)  PRINT  1 120,  ( SR  (  I  )  ,  I  =  1 , 4  )  , SX, SY, SZ, TXY , C0S2TH 1  , 

1  SIN2TH1 
P=PC#(1 . -FS)+PS*FS 
RETURN 

C  PROVISION  TO  CUT  STRAIN  INCREMENTS 

450  NTRY=NTRY+ 1 

IF  ( NTRY  .EQ.  5)  IPRINT=1 
RR=RR/3 . 

GO  TO  120 

1001  FORMAT  C 1 X,  *  NC=*I5,*  DES ( 1  ) , DEC (1  ) =# ,  1P2E10.3,#  PC=*,E10.3,#  PS=# 

1 , E10. 3, /,  IX,  *  SR1=*,4E10.3,*  SR2= * , 4E1 0 . 3, /,  1  X,  *  SR3= * , 4E 1 0 . 3, 

2*  SR4  =  #,4E10. 3/,  IX,  *  (CONCRETE  STRESS)  SR4 (1  ) -PC  =  # , El  2  5,  *  (STEEL 
3STRESS)  SR3 ( 1  ) -PS=  * , E 1 2 . 5 ) 

1002  FORMAT ( *  BEFORE  CAP, RH, ROLD=* 1 P2E1 0 . 3, 

1  *  RX, RY, RZ, RXY=*4E1 0. 3, *  ZEVP , TEVP= *2E 1 0 . 3 ) 

1003  FORMAT  (*  AFTER  CAP,  RH,R0LD=#1P2E10.3, 

1  *  RX, RY, RZ, RXY=#4E1 0. 3, *  ZEVP, TEVP=*2E1 0 . 3) 

1120  FORMAT ( *  SR 1 , SR2, SR3 , SR4 = *4E1 0 . 3/*  SX, SY , SZ, TXY=*4E' 0 . 3/*  C0S2TH, 

1  SI N2TH=#2E1 0. 3) 

END 


REBAR 

151 

REBAR 

152 

REBAR 

153 

REBAR 

154 

REBAR 

1  55 

REBAR 

1  56 

REBAR 

157 

REBAR 

1  58 

REBAR 

159 

REBAR 

1  60 

REBAR 

161 

REBAR 

162 

REBAR 

1  63 

REBAR 

164 

REBAR 

1  65 

REBAR 

1  66 

REBAR 

167 

REBAR 

168 

REBAR 

1  69 

REBAR 

1  70 

REBAR 

171 

REBAR 

1  72 

REBAR 

1  73 

REBAR 

1  74 

REBAR 

1  75 

REBAR 

1  76 

REBAR 

1  77 

REBAR 

1  78 

REBAR 

179 

REBAR 

180 

REBAR 

1  81 

REBAR 

182 

REBAR 

1  83 

REBAR 

1  84 

REBAR 

1  85 

REBAR 

1  86 

REBAR 

187 

REBAR 

1  88 
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SUBROUTINE  SCRIBET 


30 

50 


1  00 
1  20 


1  000 

1  001 

1  100 
1  200 


SUBROUTINE  SCRIBET 

COMMON/NSCRB/S J ( 60) , N JED, NJKED, NKED, N, T I MEZ , D I SCPT ( 20 ) 

1  JEDKC60) , JEDT ( 60) , NAME (60) 

DIMENSION  R ( 1 ) 

EQUIVALENCE  (R,SJ) 

REWIND  4 

READ  (4)  A1 

NSCR I BE=N1 = 1 

N2=MI N0( N1 +7, NJKED ) 

DO  30  NP= 1 , N 

READ  (4)  NN,T,DT, DELTIM, (RCI )  ,  1=1, NJKED) 

IF  ( MOD ( NN , 50)  . EQ ,  1)  PRINT  1001,  D I SCPT , NSCR I  BE ,  ( JEDT ( I  ) , 

1  JEDK (  I  )  , JEDJ ( I ) ,  I =N1 , N2 ) 

NN, T, DT, DELTIM, (RCI),  I =N1 , N2 ) 


JEDJ ( 60 ) 


1=1 , NJKED) 

1 000, D I SCPT, NSCR I  BE,  (JEDT ( I  ) , JEDK ( I  )  , 


PRINT  1 100, 

CONTINUE 
GO  TO  120 

N2=MIN0(N1+9, NJKED) 

READ  (4)  A1 
DO  100  NP= 1 , N 

READ  (4)  NN,T,DT, DELTIM, (RCI) 

IF  ( MOD ( NN, 50 )  , EQ .  1)  PRINT 

1  JEDJ ( I ) , I =N 1 , N2 ) 

PRINT  1100,  NN, T, (R( I ) , I =N1 , N2) 

CONTINUE 
REWIND  4 
N 1 =N2+1 

NSCR I  BE  =  NSCR I BE  +  1 
IF  ( N2  .LT.  NJKED)  GO  TO  50 
CALL  SECOND (T1MN0W) 

CALTI M  =  T I MNOW-TI  MEZ 
PRINT  1200,  CALTIM 
RETURN 

FORMAT  ( 1 H 1 , 20A5, /9H  NSCR I BE= I  3, 31 H,  HISTORIES, 

1  51  HESS  IN  DYN/CM2 ,  VELOCITY  IN  CM/SEC, DENS  I TY 

2  7X,4HTIME, 10(1X, A3 , 1 H ( 12, 1H, 12, 1H) )/) 

FORMAT ( 1  HI , 20A5/9H  NSCR I BE= I  3, 3 1 H ,  HISTORIES,  TIME  IN  MUSEC,  STR 

1  51  HESS  IN  DYN/CM2 ,  VELOCITY  IN  CM/SEC , DENS  I TY  IN  G/CM3//4X,  1HN, 

2  7X, 4HTIME, 9X, 2HDT, 5X, 6HDELTI M, 8 ( 1 X, A3,  1 H( I  2,  1 H,  I  2, 1 H) ) /) 

FORMAT ( 15, 1PE1 1 .3, 10E1 1 .3) 

FORMAT ( *  CALT I M  =  #F8 . 3, *  SEC*) 

END 


TIME  IN  MUSEC,  STR 
I N  G/CM3//4X , 1 HN, 
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SCRIBET 

SCRIBET 

SCRIBET 
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SCRIBET 
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SCRIBET 

SCRIBET 

SCRIBET 


2 

2 
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oooooooooo 


SUBROUTINE  SWEEPT 


1  00 
1  10 


SUBROUTINE  SWEEPT ( JS I ZE , JXX , KXX , XL , YL , MM , IZ,LVAR) 

ROUTINE  PERFORMS  COMPUTATIONS  FOR  EACH  CELL  AT  EACH  CYCLE. 
COMPUTATIONS  ARE  MADE  FOR  VELOCITY  (FROM  MOMENTUM  CONSERVATION) 
STRAIN  AND  DENSITY  CHANGES  (MASS  CONSERVATION),  ENERGY  (ENERGY 
CONSERVATION)  AND  STRESS  (CONSTITUTIVE  EQUATIONS  AND  EQUATIONS  OF 

SELECTED  VALUES  ARE  STORED  FOR  HISTORIES. 

STRESSES  ARE  POSITIVE  IN  TENSION,  PRESSURE  POSITIVE  IN  COMP 
SXX,  ETC  ARE  DEVIATORS,  TXX,  ETC  ARE  TOTAL  STRESSES 

COMMON/ EQS/EQSTC ( 6) , EQSTD ( 6 ) , EQSTE ( 6) , EQSTG(6) , EQSTH ( 6) , EQSTN ( 6 ) 

1  EQSTS ( 6 ) , RHO( 6) , RHOS( 6) , YC( 6) , YAD( 6) , MU( 6) , ESC (6, 20) , CL  I N, CQSQ* 

2  TRI Q, AMAT( 6, 4 ) , SP( 6) , G2( 6 ) , PM  I N(6) 

COMMON/NSCRB/S J ( 60 ) , NJED, NJKED, NKED, N, T I MEZ , D I SCPT ( 20 ) , JEDJ(60) 

1  JEDK( 60) , JEDT ( 60 ) , NAME (60) 

COMMON/ G EN/ LZ ( 1  ) ,  I JBUND,  JMAX, JMI N, KMAX , KM  I N, UZERO, CALTI M, 


, YDTEMP (100), LCON (100) 


DELTIM, DT, DTN, TS, TYME, NSTART, NPLOT, NDUMP ,  I  MAX,  I  PRINT 
, KSK I P, KFULL, KPMAX, KPM I N, JPMAX, JPM I N, JSL I DE, KSL I DE 
, NSCRI B, DTW, NEXED, NOBLQ, TANTH, JPRI NT, JPR, JP1 (20),JP2(20)  KCHEK 
, NBND, I BDJ 1(6), IBDJ2(6), IBDK1 (6), IBDK2(6), I BDX ( 6 ) , I BDY ( 6 ) , 

XF I  X ( 6 ) , YF I  X  (  6 ) 

COMMON/CAL/  L I STE, L I  STS , L I STX, L I STXD, CALE, CALS, CALX, CALXD 
COMMON/ I ND/NCMP ( 6 ) , NFR( 6) , NPOR( 6) , NDS( 6) , NPR( 6) , NVAR ( 6 ) , NTR I (6) 
COMMON/TSR/TSR ( 6, 21 ) , BFR ( 6, 20) 

COMMON/T/COM ( 1 000) 

DIMENSION  XA(4), YA ( 4 ) , XL ( KXX , JXX) ,YL(KXX, JXX), MM (KXX, JXX), IZ(KXX, 

1  JXX) , LVAR(KXX, JXX) 

REAL  MU 

DIMENSION  X ( 1 ),Y(1  ) , XD (  1  ),YD(1  ),M(1 ),A(1 ),Z(1  ),D(1 ), SXX (  1  ) , SYY ( 1  ) 

1  SZZ( 1  ) , TXY( 1  ) , TXX ( 1  ) , TYY( n , TZZ( 1  )  ,  P ( 1  ) , E ( 1  )  ,  TH ( 1  )  ,  FS ( 1  ) , DSTL ( 1 ! 

2  i SRS ( 1  ) , ZEVP ( 1  ) , TEVP ( 1  )  ,  YY (  1  )  ,  ROLD ( 1  )  ,  I H(  1  ) , ENM ( 1  )  ,  ENT (  1  )  , 

3  I  COM ( 1  )  CLB ( 1  ) , CL1  ( 1  ) , CN( 1  ) , FF ( 1  ) 

EQUIVALENCE  (COM,  I  COM),  ( COM ( 1  ),  X),  (C0M(2),Y),  (C0M(3),XD), 

1  ( COM ( 4 )  ,  YD )  ,  ( COM ( 5 ) , M) ,  ( COM ( 6 ) , A ) ,  ( COM ( 7 ) , Z ) ,  ( COM ( 6 ) , D ) ,  ( COM ( 9 ) 
SXX ) , ( COM (10), SYY ) , ( COM ( 1 1) , SZZ ) , ( COM (12), TXY ) , ( COM (13), TXX ) , 

( COM ( 14), TYY ) , ( COM( 15), TZZ) , ( COM( 1 6) , P) , ( COM( 1 7) , E) , ( COM( 18), 

I H) ,  ( COM ( 1 9) , YY)  ,  (COM (20) , TH)  ,  (COM (21  )  ,  ZEVP)  ,  (COM (22)  ,  TEVP) , 

( COM ( 23 )  ,  FS)  ,  ( COM ( 24 )  ,  DSTL)  ,  (COM (25)  ,  ROLD)  ,  (COM( 26) , SRS) , 

(COM (22) , ENM) , (COM (23) , ENT) , (COM (23) , CLB) , (COM (28)  CL 1 ) , (COM (33] 
,  CN) ,  ( COM ( 2 1  ) , FF) 

DIMENSION  XTEMP( 100) , YTEMP( flOO) ,XDTEMP( 100) 

DATA  LCON/ 1 00*0/ 

JE=  1 
F  =  1  . 

IF  (N 
IF  (N 
IF  (N 
IF  (N 
I HEAD= 1 
I  PR  =  0 

IF  (MOD(N, IPRINT)  . EQ .  0)  GO  TO  100 
IF  (JPRINT  .EQ.  0)  GO  TO  110 
IF  (N  .LT.  JPI(JPR)  .OR.  N  .GT. 

I HEAD=2 
CONTINUE 
DTSQM= 1 . 

DO  950 
KHEAD=2 

DO  920  J=1 , JMAX 

LVARM  =  LVAR ( K,  J ) 

IF  (LVARM  .LE.  0) 

DW  =  0 . 

TXXW=0 . 

TYYW=0. 

TZZW=0 . 

TXYW  =  0 . 

SXXW=0. 

SYYW=0 . 

SZZW=0. 

EW  =  0 . 

PW  =  0. 

Q  =  0 . 

SPSQ=0 . 


.  EQ. 
.  EQ. 
.  EQ. 
.  EQ. 


1  ) 
1  ) 
1  ) 
1  ) 


LSFRACT  =  0 

S I NTH=S I N ( NOBLQ/57 . 2957795 ) 
COSTH=COS ( NOBLQ/57 . 2957795 ) 
LCON ( 1 ) = 1 


JP2 ( JPR ) )  GO  TO  1  1  0 


K= 1 , KMAX 


GO  TO  780 
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41 

42 

43 
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SUBROUTINE  SWEEPT  (Continued) 


c  ***************** 

********************* 

SWEEPT 

65 

C  BEGIN  MOMENTUM  CALCULATIONS 

SWEEPT 

66 

c  ***************** 

********************* 

SWEEPT 

67 

XDNH=XD ( LVARM) 

SWEEPT 

68 

YDNH=YD ( LVARM) 

SWEEPT 

69 

FX=0 . 

SWEEPT 

70 

FY  =  0 . 

SWEEPT 

71 

XMOM  =  0 . 

SWEEPT 

72 

AMASS=  0 , 

SWEEPT 

73 

L3=LVARM 

SWEEPT 

74 

C 

SWEEPT 

75 

C  *******  FIND  COORDINATES  OF  CELLS  AROUND  POINT  (K,J) 

SWEEPT 

76 

C 

SWEEPT 

77 

DO  360  1=1,4 

SWEEPT 

78 

I TRI =0 

SWEEPT 

79 

DMASS=0 . 

SWEEPT 

80 

GO  TO  (230,240,250,260)  I 

SWEEPT 

81 

C 

SWEEPT 

82 

C  XXXX  1=1,  UPPER  RIGHT  HAND  QUADRANT  XXXX 

SWEEPT 

83 

230  I F ( K  .EQ.  KMAX  .OR.  J  . EQ .  JMAX)GO  TO  360 

SWEEPT 

84 

IF  (J  .EQ.  JSLIDE-1)  GO  TO  360 

SWEEPT 

85 

IF  (K  .EQ.  KSLIDE-1)  GO  TO  235 

SWEEPT 

86 

IF  ( MM ( K+ 1 , J+ 1 )  .LE.  0)  GO  TO  360 

SWEEPT 

87 

LI =LVAR ( K+1 , J+1 ) 

SWEEPT 

88 

L2=LVAR ( K, J+1 ) 

SWEEPT 

89 

L4  =  LVAR ( K+ 1 , J) 

SWEEPT 

90 

LM  =  L1 

SWEEPT 

91 

MAT  =  MM( K+1 , J  +  1 ) 

SWEEPT 

92 

GO  TO  270 

SWEEPT 

93 

C  K-SLIDE  CASE 

SWEEPT 

94 

235  IF  (LCON(J)  . EQ .  0)  GO  TO  360 

SWEEPT 

95 

L4  =  L3 

SWEEPT 

96 

LI =  L2  =  LVAR ( K, J  +  1  ) 

SWEEPT 

97 

GO  TO  262 

SWEEPT 

98 

C 

SWEEPT 

99 

C  XXXX  1=2,  UPPER  LEFT  HAND  QUADRANT  XXXX 

SWEEPT 

100 

240  IFCK  .EQ.  1  .OR.  J  . EQ .  JMAX)GO  TO  360 

SWEEPT 

101 

IF  (J  .EQ.  JSLIDE-1)  GO  TO  360 

SWEEPT 

1  02 

IF  (K  .EQ.  KSLIDE)  GO  TO  360 

SWEEPT 

1  03 

IF  ( MM ( K, J+1 )  .LE.  0)  GO  TO  360 

SWEEPT 

104 

LI =LVAR(K-1 , J+1 ) 

SWEEPT 

105 

L2  =  LVAR ( K- 1  ,  J) 

SWEEPT 

106 

L4  =  LVAR ( K, J  +  1  ) 

SWEEPT 

1  07 

LM  =  L4 

SWEEPT 

1  08 

MAT  =  MM ( K , J  +  1  ) 

SWEEPT 

109 

IF  (K  .EQ.  KSLIDE-1)  XMQM=XM0M+0 . 25*Z( LM ) *XD ( L3 ) 

SWEEPT 

1  10 

GO  TO  270 

SWEEPT 

1  1  1 

C 

SWEEPT 

1  1  2 

C  XXXX  1=3,  LOWER  LEFT  QUADRANT 

SWEEPT 

1  13 

250  IFCK  .EQ.  1  .OR.  J  , EQ .  1)  GO  TO  360 

SWEEPT 

1  14 

IF  (J  .EQ.  JSLIDE)  GO  TO  255 

SWEEPT 

1  15 

IF  (K  .EQ.  KSLIDE)  GO  TO  360 

SWEEPT 

1  16 

IF  ( MM (K, J )  .LE.  0)  GO  TO  360 

SWEEPT 

1  17 

LI =LVAR(K-1 , J-1 ) 

SWEEPT 

1  18 

L2=LVAR (K, J - 1 ) 

SWEEPT 

1  1  9 

L4=LVAR(K-1 , J) 

SWEEPT 

1  20 

LM  =  L3 

SWEEPT 

121 

MAT  =  MM ( K , J) 

SWEEPT 

1  22 

IF  (K  .EQ.  KSLIDE-1)  XMOM=XMOM+0 . 25*Z ( LM ) *XD ( L3 ) 

SWEEPT 

123 

GO  TO  270 

SWEEPT 

124 

C  J-SLIDE  CASE 

SWEEPT 

1  25 

255  L2=L3 

SWEEPT 

126 

LI =L4  =  LVAR(K-1  ,  J) 

SWEEPT 

1  27 

XSTAR=0 . 75 *X ( L3 ) +0 . 25*X( L4 ) 

SWEEPT 

1  28 

GO  TO  267 

SWEEPT 

1  29 

C 

SWEEPT 

130 

C  ****  1=4,  LOWER  RIGHT  QUADRANT 

SWEEPT 

131 

260  IFCK  .EQ.  KMAX  .OR.  J  . EQ .  1 ) GO  TO  360 

SWEEPT 

1  32 

IF  (J  .EQ.  JSLIDE)  GO  TO  265 

SWEEPT 

1  33 

IF  (K  .EQ.  KSLIDE-1)  GO  TO  262 

SWEEPT 

134 

IF  ( MM ( K+1 , J )  .LE.  0)  GO  TO  360 

SWEEPT 

1  35 

L 1 =LVAR ( K+1 , J - 1 ) 

SWEEPT 

136 

L2=LVAR ( K+ 1 , J) 

SWEEPT 

137 

L4=LVAR ( K, J-1 ) 

SWEEPT 

1  38 

LM  =  L2 

SWEEPT 

139 
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SUBROUTINE  SWEEPT  (Continued) 


c 

262 


C 

265 


267 


268 


C  *  *  * 
C 

c  *  *  * 

270 

C 

C  *  *  * 


c 

c 

275 


280 


C 

C 

285 


MAT =MM(K+1  ,  J) 

GO  TO  270 

K-SLIDE  CASE 

IF  (LCON(J)  .EQ.  0)  GO  TO  360 
L2  =  L3 

LI =L4=LVAR(K, J-1  ) 

JS=LCON ( J ) 

LX=LVAR(KSLIDE, JS) 

IF  (JS  .EQ.  1)  JS=2 
LM=LVAR (KSL I DE+1 ,  JS) 

DMASS=0. 25*2(LM) 

XMOM=XMOM+XD(LX) *DMASS 
GO  TO  270 

J-SLIDE  CASE 
L4  =  L3 

LI =L2=LVAR(K+1 , J ) 

XSTAR=0 . 75*X(L3)+0. 25*X(L2) 

L=LVAR( 1 , JSLIDE-1 ) 

IF  ( XSTAR  .LT.  X(L))  GO  TO  360 

KS=  1 

KS=KS+1 

IF  (KS  .GE.  KMAX)  GO  TO  360 
L=LVAR(KS, JSLIDE-1  ) 

IF  (L  .LT.  0)  GO  TO  360 
IF  (XSTAR  .GT.  X(L))  GO  TO  268 
LM  =  L 

DMASS=0. 25*2(LM) 

XMOM=XMOM+XD(LM) * DMASS 
GO  TO  300 
************** 

COMPUTE  AREAS,  MASSES,  FORCES  ACTING 
************** 

IF  (M(LM)  -EQ.  0)  GO  TO  300 
LMS=LM 

****  TRIANGULAR  CELLS 

GXX=QYY=GXY  =  0 . 

IF  (I  .EQ.  2  .OR.  I  .EQ.  4)  GO  TO  275 
I TR I  =  -  1 

X02=X(L2)+X(L4) 

Y02=Y(L2)+Y(L4) 

IF  (I  .EQ.  1 )  LM=M ( LM ) 

GO  TO  305 

TRIANGULAR  CELL  WITH  POINTS  1,3,4 
ITRI =1 

AXY  = ( X ( L4 ) * (Y (LI ) -Y (L3) ) +X (L3)#(Y(L4)-Y(L1  )  H 
1  /  8 . 

A3=4 . * AXY 

IF  (I  .EQ.  4)  LM=M ( LMS ) 

IF  (IJBUND  .GT.  0)  GO  TO  280 
AXX= ( Y ( L 1 ) -Y(L4) )/2. 

AYY  =  ( X ( L4  ) **X  ( L 1  ) )/2. 

TZZAXY  =  0 . 

IF  ( DMASS  .NE.  0.)  GO  TO  330 
DMASS  =  D ( LM ) * AXY 
GO  TO  330 

AXX= (Y (LI ) -Y(L4 ) ) * (Y(L1 )+2. *Y (L3)+Y(L4) )/8 . 

AYY  = (X( L4 ) -X(L1  ) ) * ( Y ( LI  ) +2 . *Y ( L3 ) +Y ( L4 ) ) / 8 . 

TZZAXY=TZZ(LM)*AXY 

IF  (DMASS  .NE.  0.)  GO  TO  330 

DMASS=D ( LM ) * AXY* ( 0 . 666667*Y ( L3 ) + ( Y ( L 1 ) +Y ( L4 ) ) 
GO  TO  330 

TRIANGULAR  CELL  WITH  POINTS  1,2,3 
ITRI =2 


1  /8 . 

A3=4 . *AXY 
LM=LMS 

IF  (I  .EQ.  2)  LM=M ( LMS ) 

IF  (IJBUND  .GT.  0)  GO  TO  290 
AXX= (Y(L2)-Y(L1 ) )/2. 

AYY  = ( X ( L 1  ) -X ( L2 ) )/2. 

TZZAXY  =  0 . 
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SWEEPT 
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SWEEPT 
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SWEEPT 

149 

SWEEPT 

1  50 

SWEEPT 

151 

SWEEPT 

1  52 

SWEEPT 

1  53 

SWEEPT 

1  54 

SWEEPT 
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SWEEPT 

1  56 

SWEEPT 

157 

SWEEPT 

1  58 

SWEEPT 

159 

SWEEPT 

160 

SWEEPT 
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SWEEPT 

162 

SWEEPT 

163 

SWEEPT 

164 

SWEEPT 

1  65 

SWEEPT 

1  66 

SWEEPT 

1  67 

SWEEPT 

1  68 

********************* 

SWEEPT 

1  69 

ON  COORDINATE  (K,  J) 

SWEEPT 

170 

********************* 

SWEEPT 

171 

SWEEPT 

1  72 

SWEEPT 

1  73 

SWEEPT 

1  74 

SWEEPT 

1  75 

SWEEPT 

1  76 

SWEEPT 

1  77 

SWEEPT 

1  78 

SWEEPT 

1  79 

SWEEPT 

1  80 

SWEEPT 

181 

SWEEPT 

1  82 

SWEEPT 

1  83 

SWEEPT 

184 

SWEEPT 

1  85 

X( LI ) * (Y(L3) -Y ( L4 ) ) ) 

SWEEPT 

1  86 

SWEEPT 

1  87 

SWEEPT 

1  88 

SWEEPT 

1  89 

SWEEPT 

1  90 

SWEEPT 

1  91 

SWEEPT 

1  92 

SWEEPT 

1  93 

SWEEPT 

1  94 

SWEEPT 

1  95 

SWEEPT 

1  96 

SWEEPT 

1  97 

SWEEPT 

1  98 

SWEEPT 

1  99 

/6 .  ) 

SWEEPT 

200 

SWEEPT 

201 

SWEEPT 

202 

SWEEPT 

203 

SWEEPT 

204 

SWEEPT 

205 

X(L3)*(Y(L1 ) - Y ( L2 ) ) ) 

SWEEPT 

206 

SWEEPT 

207 

SWEEPT 

208 

SWEEPT 

209 

SWEEPT 

210 

SWEEPT 

21  1 

SWEEPT 

212 

SWEEPT 

213 

SWEEPT 

214 

124 


SUBROUTINE  SWEEPT  (Continued) 


DMASS=D( LM ) *AXY 

SWEEPT 

2 1  o 

GO  TO  330 

SWEEPT 

216 

290 

AXX= ( Y ( L2 ) - Y ( L 1 ) ) * ( Y ( L2 ) +2 . * Y ( L3 ) +Y ( L 1 ) ) /8 . 

SWEEPT 

217 

AYY  = ( X ( LI ) -X(L2) )* (Y(L2)+2. *Y(L3)+Y(L1 ) )/8. 

SWEEPT 

218 

TZZAXY  =  TZZ ( LM ) #  AXY 

SWEEPT 

219 

DMASS=D(LM) #AXY* (0. 666667* Y ( L3 )+(Y ( LI )+Y(L2) )/6. ) 

SWEEPT 

220 

GO  TO  330 

SWEEPT 

221 

C 

SWEEPT 

222 

C  *******  QUADRILATERAL  CELLS 

SWEEPT 

223 

300 

X02  =  0 , 5* ( X ( LI )+X(L2)+X(L3)+X(L4) ) 

SWEEPT 

224 

Y02=0.5#(Y(L1 )+Y(L2)+Y(L3)+Y(L4) ) 

SWEEPT 

225 

305 

A0= ( X02-X ( L3 ) )*(Y(L2) -Y ( L4 ) ) +X ( L2 ) * ( Y ( L3 ) +Y ( L4 ) -Y02 ) +X ( L4 ) 

SWEEPT 

226 

-  *(Y02-Y(L2)-Y(L3) ) 

SWEEPT 

227 

A3=X ( L4 ) * ( Y ( L2 ) -Y ( L3 ) ) -X ( L3 ) * ( Y ( L2 ) -Y ( L4 ) ) +X( L2 ) * ( Y ( L3 ) -Y ( L4 ) ) 

SWEEPT 

228 

AXY  = ( A0+A3 )  /  8 . 

SWEEPT 

229 

IF  (IJBUND  .  GT.  0)  GO  TO  320 

SWEEPT 

230 

AXX= (Y(L2)-Y(L4) ) /2 . 

SWEEPT 

231 

AYY  =(X(L4)-X(L2) )/2. 

SWEEPT 

232 

TZZAXY  s0 

SWEEPT 

233 

IF  ( DMASS  .NE.  0.)  GO  TO  330 

SWEEPT 

234 

DMASS=D ( LM ) *AXY 

SWEEPT 

235 

GO  TO  330 

SWEEPT 

236 

320 

AXX= ( Y ( L2 ) -Y ( L4 ) ) * ( Y ( L2 ) +2 . *Y C L3 ) +Y ( L4 ) ) /8 . 

SWEEPT 

237 

AYY= ( (Y (L2 ) -Y( L4 ) )* (X02-X(L3) )  +  ( X ( L4 ) -X ( L2 ) ) * ( Y02+YC  L3) ) -X(L2) * 

SWEEPT 

238 

1  Y(L2)+X(L4)*Y(L4) )/8. 

SWEEPT 

239 

IF  (DMASS  . NE .  0.)  GO  TO  330 

SWEEPT 

240 

DMASS=  D ( LM ) * ( AO* ( ( Y ( L2 ) +Y ( L4 ) +Y02) /2 , +Y ( L3 ) ) +A3* ( ( Y ( L2 ) +Y ( L4 ) ) / 

SWEEPT 

241 

-  2. +2. *Y(L3) ) )/24. 

SWEEPT 

242 

TZZAXY  =  TZZ ( LM ) *  AXY 

SWEEPT 

243 

C 

STRAINS  EDXX ,  EDYY ,  AND  EDXY  ARE  POSITIVE  IN  TENSION 

SWEEPT 

244 

330 

QXX=QYY=QXY=0. 

SWEEPT 

245 

IF  (J  EQ.  JSLIDE  .AND,  ( I . EQ . 3  .OR.  I . EQ . 4 ) )  GO  TO  340 

SWEEPT 

246 

IF  (K  .EQ.  KSLIDE-1  .AND.  (I  . EQ .  1  .OR.  I  . EQ .  4))  GO  TO  340 

SWEEPT 

247 

IF  (TRIG  .EQ.  0.  .OR.  A3  .LT.  0.1* AXY)  GO  TO  340 

SWEEPT 

248 

EDXX= ( (XD( L2) -XD( L3) ) * ( Y ( L2) -Y ( L4 )) - (XDCL2) -XDC  L4 ) )  * ( Y ( L2 ) - 

SWEEPT 

249 

1  Y(L3)))/A3 

SWEEPT 

250 

EDYY = - ( ( YD(L2) -YD(L3 ) )* (X(L2) -X(L4 ) ) - ( YD(L2) -YDCL4 ) ) * (X( L2) - 

SWEEPT 

251 

-  X(L3)))/A3 

SWEEPT 

252 

EDXY  = ( - (XDCL2) -XDCL3) )* (XCL2) -X(L4) )  +  ( XD C L2 ) -XD ( L4 ) )* (X(L2) - 

SWEEPT 

253 

1  X( L3 ) )+( YD( L2) -YD( L3) ) * ( Y ( L2 ) -Y ( L4 ) ) - ( YD ( L2 ) - YD ( L4 )  )* ( Y( L2) - 

SWEEPT 

254 

2  Y(L3)))/A3 

SWEEPT 

255 

C 

TRIANGLE  Q  STRESSES  QXX,  QYY ,  AND  QXY  ARE  POSITIVE  IN  TENSION 

SWEEPT 

256 

COEF=SQRT ( A3 ) *SP (MAT)*D(LM)*TRIQ 

SWEEPT 

257 

QXX  =  COEF* ( 2 . *EDXX-EDYY) 

SWEEPT 

258 

QYY  =  COEF* ( 2 . #EDYY -EDXX ) 

SWEEPT 

259 

QXY  =  3 . *COEF*EDXY 

SWEEPT 

260 

340 

FX  =  FX+ ( TXX ( LM ) +QXX ) *  AXX+ ( TXY ( LM ) +QXY ) * AYY 

SWEEPT 

261 

FY  =  FY  +  ( TXY ( LM ) +QXY ) * AXX+ ( TYY ( LM ) +QYY ) * AYY - TZZAXY 

SWEEPT 

262 

AMASS =AMASS+DMASS 

SWEEPT 

263 

IF  ( ITRI  .EQ.  1 )  GO  TO  285 

SWEEPT 

264 

360 

CONTINUE 

SWEEPT 

265 

C 

SWEEPT 

266 

C  ****  COMPUTE  POSITIONS  AND  VELOCITIES  AT  -K,J- 

SWEEPT 

267 

c 

SWEEPT 

268 

LM  =  LVAR (K, J ) 

SWEEPT 

269 

I JBABS= I ABS ( I JBUND ) 

SWEEPT 

270 

IF  (IJBABS  .NE.  9)  GO  TO  344 

n^WEEPT 

271 

I  B  =  0 

SWEEPT 

272 

DO  342  NB= 1 j  NBND 

SWEEPT 

273 

IF  (J  .LT.  IBDJI(NB)  .OR.  J  . GT .  IBDJ2(NB))  GO  TO  342 

SWEEPT 

274 

IF  (K  .LT.  I BDK 1 ( MB )  .OR.  K  .GT.  I BDK2 ( NB ) )  GO  TO  342 

SWEEPT 

275 

IF  (IBDY(NB)  .EQ.  0)  GO  TO  345 

SWEEPT 

276 

IF  (IBDY(NB)  .LE.  1 )  GO  TO  347 

SWEEPT 

277 

I  B  =  NB 

SWEEPT 

278 

GO  TO  345 

SWEEPT 

279 

342 

CONTINUE 

SWEEPT 

280 

GO  TO  345 

SWEEPT 

281 

344 

IF  (J  .EQ.  JMAX  .AND.  ( IJBABS. EQ . 1  .OR.  I JBABS . EQ . 5 ) )  GO  TO  347 

SWEEPT 

282 

IF  (J  .EQ.  1  .AND.  IJBUND  . NE .  -3)  GO  TO  347 

SWEEPT 

283 

IF  (IJBUND  .EQ.  2  .AND.  Y ( LM)  , EQ .  0 . )  GO  TO  347 

SWEEPT 

284 

345 

YDNH= YD ( LM ) +DTN*FY /AMASS 

SWEEPT 

285 

347 

YNW= Y ( LM ) +YDNH#DT 

SWEEPT 

286 

IF  (IB  . EQ.  0)  GO  TO  349 

SWEEPT 

287 

IF  (IBDY(IB)  .EQ.  2)  YNW=AM INI ( YNW , YFI X ( IB)) 

SWEEPT 

288 

IF  (IBDY(IB)  .EQ.  3)  YNW= AMAX1 ( YNW , YFI X ( I B) ) 

SWEEPT 

289 

125 


SUBROUTINE  SWEEPT  (Continued) 


349 


352 

354 


356 

357 


362 

C 

C 

c 


355 


358 


IF  (IJBUND  .GT.  0)  YNW=AMAX1 ( YNW . 0 . ) 
YDNH= ( YNW- Y ( LM ) )/DT 
IF  (IJBABS  .NE.  9)  GO  TO  354 
I  B  =  0 

DO  352  NB= 1 , NBND 
IF  (J  .LT.  IBDJKNB) 

IF  (K  . LT.  IBDK1 ( NB ) 

IF  (IBDX(NB)  .EQ.  0) 


.OR.  J  .GT. 
.OR.  K  .GT. 
GO  TO  356 
GO  TO  357 


IBDJ2CNB))  GO  TO  352 
I BDK2( NB ) )  GO  TO  352 


.  (IJBABS  .EQ. 
GO  TO  357 


4  .OR.  IJBABS  .EQ.  5  .OR. 

4)  GO  TO  357 

■NE.  0)  XDNH=XMOM/AMASS+DTN*FX/ 


365 


370 
375 
C 

C  #  *  # 


380 


IF  (IBDX(NB)  .LE.  1) 

I  B  =  NB 
GO  TO  356 
CONTINUE 
GO  TO  356 
IF  (K  .EQ.  1  .AND 
1  IJBABS  .EQ.  6)) 

IF  (K  .EQ.  KMAX  .AND,  IJBABS  . EQ . 

XDNH=XD ( LM ) +DTN*FX/ANASS 
IF  (K  .EQ.  KSLIDE-1  .AND.  LCON(J) 

1  AMASS 
XNW=X( LM) +XDNH*DT 
IF  (IB  . EQ.  0)  GO  TO  362 

IF  (IBDX(IB)  .EQ.  2)  XNW=AM I N1 ( XNW, XF I X( I B) ) 

IF  (IBDX(IB)  .EQ.  3)  XNW=AMAX 1 ( XNW , XF I  X ( IB) ) 

CONT I NUE 

ADJUST  XNW  AND  XDNH  FOR  SLIDE  LINE 
(CALC  ON  KSLIDE-1,  ADJUST  KSLIDE) 

IF  (K  .NE.  KSLIDE)  GO  TO  375 
JS=1 

LMR=LVAR( KSLIDE-1 , JS ) 

IF  (YNW  .GT.  Y ( LMR ) )  30  TO  355 
IF  (J  .GE.  JMAX )  GO  TO  355 
LMJ1 =LVAR(K, J+1 ) 

IF  ( LMJ1  .LE.  0)  GO  TO  355 

IF  ( Y ( LMJ 1 )  .LT.  Y ( LMR ) )  GO  TO  370 

JS  =  JS+ 1 

IF  ( JS  .EQ.  JMAX+1 )  GO  TO  365 
LMRT  =  LVAR ( KSL I  DE  -  1 , JS) 

IF  (LMRT  .LE.  0)  GO  TO  365 

LML=LMR 

LMR=LMRT 

IF  (YNW  . GT .  Y ( LMR ) )  GO  TO  355 

XCONT=X(LML) +( YNW-Y (LML) ) * (X(LMR) -X(LML) ) /( Y( LMR) -Y ( LML) ) 

IF  (XNW  .GT.  XC0NT+0.001)  GO  TO  370 
XNW=XCONT 

1 1 F ( y (LMR ! -? I LMU )  ° }  XDNH=XD ( LML J  +  < YNW- Y ( LML ) ) * ( XD ( LMR ) -XD ( LML ) ) / 
LCON ( JS ) =  J 
GO  TO  375 

IF  ( J  . EQ.  1 )  GO  TO  375 
LMJ  =  LVAR(K,  J-1  ) 

IF  (Y(LMJ)  .LE.  Y ( LMR ) )  GO  TO  358 
GO  TO  375 
LCON ( J ) =0 
CONTINUE 

****  ADJUST  YNW  AND  YDNH  FOR  SLIDE  LINE 

IF  (J  .NE.  JSLIDE-1)  GO  TO  394 
KS=  1 

LMR  =  LVAR(KSJ  JSL I DE ) 

IF  (XNW  .GT.  X ( LMR ) )  GO  TO  380 
IF  (K  .GE.  KMAX)  GO  TO  380 
LMJ 1 =LVAR(K+1  ,  J) 

IF  ( LMJ 1  .LE.  0)  GO  TO  380 

IF  ( X ( LMJ 1 )  .LT.  X ( LMR ) )  GO  TO  394 

T  (  LP? >  +  ™;X  <  >-MR )  >  *  ( Y  (  LM  J 1  >  -Y  (  LMR  )  >  /  ( X  (  LM  J 1  )  -X  (  LMR )  ) 

IF  (YNW  .LT.  YCONT )  GO  TO  394 
YNW= YCONT 

YDNH=YD(LMR)+(XNW-X(LMR) )* (YD(LMJ1 ) “YD ( LMR ) ) / ( X ( LM J 1 )-X(LMR) ) 

GO  TO  394 
KS=KS+1 

IF  (KS  .EQ.  KMAX+1 )  GO  TO  386 
LMRT  =  LVAR(KSJ  JSL I DE) 

IF  (LMRT  , LE .  0)  GO  TO  386 
LML=LMR 


SWEEPT 

290 

SWEEPT 

291 

SWEEPT 

292 

SWEEPT 

293 

SWEEPT 

294 

SWEEPT 

295 

SWEEPT 

296 

SWEEPT 

297 

SWEEPT 

298 

SWEEPT 

299 

SWEEPT 

300 

SWEEPT 

301 

SWEEPT 

302 

SWEEPT 

303 

SWEEPT 

304 

SWEEPT 

305 

SWEEPT 

306 

SWEEPT 

307 

SWEEPT 

308 

SWEEPT 

309 

SWEEPT 

310 

SWEEPT 

31  1 

SWEEPT 

312 

SWEEPT 

313 

SWEEPT 

314 

SWEEPT 

315 

SWEEPT 

316 

SWEEPT 

317 

SWEEPT 

318 

SWEEPT 

319 

SWEEPT 

320 

SWEEPT 

321 

SWEEPT 

322 

SWEEPT 

323 

SWEEPT 

324 

SWEEPT 

325 

SWEEPT 

326 

SWEEPT 

327 

SWEEPT 

328 

SWEEPT 

329 

SWEEPT 

330 

SWEEPT 

331 

SWEEPT 

332 

SWEEPT 

333 

SWEEPT 

334 

SWEEPT 

335 

SWEEPT 

336 

SWEEPT 

337 

SWEEPT 

338 

SWEEPT 

339 

SWEEPT 

340 

SWEEPT 

341 

SWEEPT 

342 

SWEEPT 

343 

SWEEPT 

344 

SWEEPT 

345 

SWEEPT 

346 

SWEEPT 

347 

SWEEPT 

348 

SWEEPT 

349 

SWEEPT 

350 

SWEEPT 

351 

SWEEPT 

352 

SWEEPT 

353 

SWEEPT 

354 

SWEEPT 

355 

SWEEPT 

356 

SWEEPT 

357 

SWEEPT 

358 

SWEEPT 

359 

SWEEPT 

360 

SWEEPT 

361 

SWEEPT 

362 

SWEEPT 

363 

SWEEPT 

364 

126 


SUBROUTINE  SWEEPT  (Continued) 


LMR=LMRT 

SWEEPT 

36b 

IP  ( XNW  .GT.  X ( LMR ) )  GO  TO  380 

SWEEPT 

366 

383 

YCONT =Y ( LML) + ( XNW-X (LML) )*(Y(LMR)-Y( LML ) ) / (X( LMR ) -X ( LML ) ) 

SWEEPT 

367 

IF  ( YNW  .LT.  YCONT )  GO  TO  394 

SWEEPT 

368 

YNW= YCONT 

SWEEPT 

369 

YDNH=YD(LML)+(XNW-X(LML) )*(YD(LMR) -YD(LML) )/(X(LMR) -X(LML) ) 

SWEEPT 

370 

PRINT  1 394 j  N,  K,  J j  YNWj  YDNH 

SWEEPT 

371 

1  394 

FORMAT ( *  N  =*13,*  K, J  =*213,*  YNW,  Y DNH=  *2F1 3.6) 

SWEEPT 

372 

GO  TO  394 

SWEEPT 

373 

386 

I F  (K  . EQ.  1 )  GO  TO  394 

SWEEPT 

374 

LMJ=LVAR(K-1 ,  J) 

SWEEPT 

375 

IF  (X(LMJ)  .LE.  X ( LMR ) )  GO  TO  383 

SWEEPT 

376 

C 

SWEEPT 

377 

c  *  * 

******  ADJUST  XNW,  YNW  FOR  OBLIQUE  IMPACT  ON  FIXED  PLANE 

SWEEPT 

378 

394 

CONTINUE 

SWEEPT 

379 

IF  ( NOBLQ  .EQ.  0)  GO  TO  396 

SWEEPT 

380 

IF  (K  . NE .  KMAX  .AND.  J  . NE .  1 )  GO  TO  396 

SWEEPT 

381 

LL  =  LVAR ( KMAX , 1  ) 

SWEEPT 

382 

IF  (XNW  .LT.  X(LL)+(YNW-Y(LL) ) *TANTH)  GO  TO  396 

SWEEPT 

383 

IF  (XDNH  .EQ.  0.  .AND.  YDNH  . EQ .  0.)  GO  TO  396 

SWEEPT 

384 

DDT= (X(LL) -X(LM)+( Y (LM) -Y( LL) ) *TANTH )/( XDNH -YDNH* TANTH ) 

SWEEPT 

385 

XNW=X(LM)+XDNH*DDT 

SWEEPT 

386 

YNW=Y(LM)+YDNH*DDT 

SWEEPT 

387 

DT I = ( XNW -X ( LM ) ) /XDNH 

SWEEPT 

388 

VT=XDNH*S I NTH+YDNH*COSTH 

SWEEPT 

389 

XDNH  =  VT  *SI NTH 

SWEEPT 

390 

YDNH  =  VT  *  COSTH 

SWEEPT 

391 

XNW  =  XNW+XDNH* ( DT-DT  I  ) 

SWEEPT 

392 

YNW  =  YNW+YDNH* ( DT-DT  I  ) 

SWEEPT 

393 

396 

CONTINUE 

SWEEPT 

394 

IF  ( MM ( K , J )  .EQ.  0)  GO  TO  750 

SWEEPT 

395 

C 

SWEEPT 

396 

C 

****  COMPUTE  NEW  AREA  AND  VOLUME  FOR  CELL  -K,J- 

SWEEPT 

397 

c 

SWEEPT 

398 

A 1 24  =  X TEMP ( J - 1  ) * ( YNW- Y TEMP ( J ) ) -XNW* ( YTEMP ( J -  1  ) - YTEMP ( J ) )  + 

SWEEPT 

399 

1  XTEMP ( J ) * (YTEMP ( J - 1 )-YNW) 

SWEEPT 

400 

LM=LVAR(K, J) 

SWEEPT 

401 

LMM=LVAR ( K- 1 ,J-1) 

SWEEPT 

402 

LKM=LVAR(K, J-1 ) 

SWEEPT 

403 

LMJ  =  LVAR ( K- 1 , J) 

SWEEPT 

404 

A234=XTEMP ( J- 1 ) * (YTEMP ( J ) -YKMJM) +XTEMP ( J ) * ( YKMJM-YTEMP ( J- 1 ) ) + 

SWEEPT 

405 

1  XKMJM* (YTEMP (J-1 )-YTEMP(J) ) 

SWEEPT 

406 

ITRI =0 

SWEEPT 

407 

IF  ( M ( LM )  .EQ.  0)  GO  TO  420 

SWEEPT 

408 

LMS=LM 

SWEEPT 

409 

I TRI =1 

SWEEPT 

410 

c 

TRIANGLE  WITH  POINTS  1,2,4 

SWEEPT 

41  1 

AW=A1 24/2. 

SWEEPT 

412 

IF  ( AW. GT. 0. )  GO  TO  400 

SWEEPT 

413 

IF  (AW  .LE.  0.)  PRINT  93, K, J , A1 24 , A234 , XNW, XTEMP ( J ), XTEMP ( J - 1 ) , 

SWEEPT 

414 

1  XKMJM, YNW, YTEMP ( J ) , YTEMP ( J - 1 ) , YKMJM 

SWEEPT 

415 

93 

FORMAT ( #  POINTS  124  K,J=*2I3,*  A1 24 , A234=* 1 P2E 1 0. 3, *  XNW,XTEMP(J) 

SWEEPT 

416 

1 , XTEMP (J-1  )  =  *3E 1 0 . 3/*  XKMJM, YNW, YTEMP ( J )  =  * 1 P3E1 0 . 3, *  YTEMP(J-1  ), * 

SWEEPT 

417 

2  * YKMJM  =  *  2E1 0 . 3 ) 

SWEEPT 

418 

NSCRIB  =  1 

SWEEPT 

419 

GO  TO  920 

SWEEPT 

420 

400 

CONTINUE 

SWEEPT 

421 

DW=Z(LM)/AW 

SWEEPT 

422 

IF  (IJBUND  .GT.  0)  DW  =  2 . *Z ( LM ) / ( A 1 24* ( Y TEMP ( J - 1  ) +YNW+YTEMP ( J ) ) ) 

SWEEPT 

423 

DTA=DT/(AW+A(LM) ) 

SWEEPT 

424 

YH1 2= ( Y ( LM ) +YNW- YTEMP ( J ) -Y ( LMJ ) ) /2 . 

SWEEPT 

425 

YH1 4  = ( Y ( LM ) +YNW -YTEMP (J-1  )-Y(LKM) )/2. 

SWEEPT 

426 

XDH1 2=XDNH-XDTEMP( J ) 

SWEEPT 

427 

XDH14=XDNH-XDTEMP( J-1 ) 

SWEEPT 

428 

XH 1 2= ( X ( LM ) +XNW -XTEMP ( J ) -X ( LMJ ) ) /2 . 

SWEEPT 

429 

XH1 4= ( X ( LM) +XNW -XTEMP (J-1 )-X(LKM) )/2. 

SWEEPT 

430 

YDH1 2=YDNH-YDTEMP ( J ) 

SWEEPT 

431 

YDH1 4  =YDNH- YDTEMP (J-1  ) 

SWEEPT 

432 

DELX  =  A1  24  *  *2/  (  AMAX1  (  XH1  2*  *2+YH  1  2*  *2 ,  XH1 4**2+YH1  4**2,  (  XTEMP  (  J  )  - 

SWEEPT 

433 

1  XTEMP ( J-1 ) )**2+(YTEMP( J) -YTEMP ( J-1 ) )**2) ) 

SWEEPT 

434 

EV0L=2 . * ( D ( LM ) -DW ) / ( D ( LM ) +DW) 

SWEEPT 

435 

EXXH=DTA* (XDH1 2* YH1 4 -XDH1 4*YH1 2 ) 

SWEEPT 

436 

EYYH=DTA* ( YDH1 4*XH1 2 -YDH1 2*XH1 4 ) 

SWEEPT 

437 

EXYH=DTA* (XDH1 4*XH1 2-XDH1 2*XH14+YDH1 2*YH1 4 -YDH1 4*YH1 2 ) /2 . 

SWEEPT 

438 

EZZH=EVOL-EXXH-EYYH 

SWEEPT 

439 

127 


oo  ooooo  ooo 


SUBROUTINE  SWEEPT  (Continued) 


C  CLOCKWISE  ROTATION 

ALFA=DTA*(XDH12*XH14-XDH14*XH1 2+YDH1 2*YH1 4 -YDH1 4*YH1 2)/2. 

GO  TO  430 

C  TRIANGLE  WITH  POINTS  2,3,4 

405  I TRI =2 

LM  =  M  ( LMS ) 

AW= A234/2 . 

IF  (AW.GT.O. )  GO  TO  410 

IF  (AW  .LE.  0.)  PRINT  94 , K, J , A1 24 , A234 , XNW, XTEMP ( J ) , XTEMP ( J -1 ) , 

1  XKMJM, YNW, YTEMP ( J ) , YTEMP ( J - 1 ) , YKMJM 

94  FORMAT ( *  POINTS  234  K,J=*2I3,*  A1 24 , A234  =  *  1 P2E1 0 . 3 , *  XNW,XTEMP(J) 

1 , XTEMP CJ-1 ) =  * 3E 1 0 . 3/ *  XKMJM , YNW, YTEMP ( J )  =  * 1 P3E1 0 . 3, *  YTEMPCJ-1  ), * 

2  *YKMJM=*2E1 0.3) 

NSCRIB  =  1 

GO  TO  920 
410  CONTINUE 

DW=Z(LM)/AW 

IF  (IJBUND  . GT .  0)  CW=2 . *Z ( LM )/( A234* ( YKMJM+YTEMP ( J - 1 ) +YTEMP( J >> ) 
DTA  =  DT/ ( AW+AC  LM ) ) 

YH23= (YTEMP ( J ) +Y ( LMJ ) )/2. -YHMM 

YH24= (YTEMP ( J ) +Y ( LMJ ) -YTEMP ( J - 1 ) -Y ( LKM ) )/2. 

XH23=(XTEMP( J)+X(LMJ) )/2. -XHMM 

XH24= ( XTEMP ( J ) +X ( LMJ ) -XTEMP ( J - 1 )-X(LKM) )/2, 

XDH23=XDTEMP( J ) -XD ( LMM ) 

XDH24=XDTEMP ( J ) -XDTEMP ( J -1 ) 

YDH23=YDTEMP( J) -YD(LMM) 

YDH24=YDTEMP ( J ) -YDTEMP ( J - 1 ) 

DELX  =  AM  I N1  ( DELX, A 234*  *2/ ( AMAX1  ( XH23* * 2+YH23* *2 , XH24 * * 2+YH24 * * 2 , 

1  (XHMM -X( LKM ) ) * *2+ ( YHMM-Y ( LKM) >  *  *  2 ) ) ) 

EV0L=2 . * ( D ( LM ) -DW ) / ( D ( LM ) +DW) 

EXXH=DTA*(XDH23*YH24-XDH24*YH23) 

EYYH=DTA* ( YDH24*XH23-YDH23*XH24> 

EXYH=DTA* (XDH24*XH23-XDH23*XH24+YDH23*YH24-YDH24*YH23)/2. 
EZZH=EVOL-EXXH-EYYH 

ALFA=DTA*(XDH23*XH24-XDH24*XH23+YDH23*YK24-YDH24*YH23>/2. 

GO  TO  430 

420  AW=0 . 5* ( A1 24+A234 ) 

IF  (AW.GT.O. )  GO  TO  425 

IF  (AW  .LE.  0.)  PRINT  95, K, J, A1 24 , A234 , XNW, XTEMP ( J ), XTEMP ( J - 1 ) , 

1  XKMJM, YNW, YTEMP( J) ,YTEMP(J-1 ), YKMJM 
95  FORMAT ( *  K,J=*2I3,*  A1 24, A234=*2E1 0. 3, *  XNW, XTEMP ( J ), XTEMP ( J - 1 )= * 

1  3E10.3/*  XKMJM, YNW, YTEMP( J)=*3E1 0. 3, *  YTEMP ( J -1 ) , YKMJM= *2E1 0 . 3) 

NSCRIB  =  1 
GO  TO  920 
425  CONTINUE 

DW  =  Z  ( LM ) /AW 

IF  (IJBUND  .GT.  0)  DW  =  2 . *Z( LM ) / ( A 1 24* ( YTEMP ( J - 1  ) +YNW+YTEMP ( J > >  + 

1  A 234* (YKMJM+YTEMP ( J - 1 ) +YTEMP ( J ) ) ) 

****  COMPUTE  STRAINS 

DTA=DT  / ( AW+A ( LM) ) 

XH13=(X( LM ) +XNW ) /2 . -XHMM 

XH42= (XTEMP ( J - 1 ) +X ( LKM ) -XTEMP ( J ) -X ( LM J ) ) /2 . 

YH1 3= ( Y ( LM ) +YNW) /2 . -YHMM 

YH42= ( YTEMP (J-1 ) +Y ( LKM ) -YTEMP ( J ) -Y ( LMJ ) )/2. 

XDH13=XDNH-XD( LMM ) 

XDH42=XDTEMP (J-1 )-XDTEMP(J) 

YDH13=YDNH-YD( LMM) 

YDH42= YDTEMP (J-1 ) -YDTEMP ( J ) 

CALCULATE  THE  SHORTEST  DISTANCE  BETWEEN  TWO  SIDES  OF 
THE  CALCULATI ONAL  CELL  USING  VECTOR  DOT  PRODUCTS 

DEFINE  COORDINATES  OF  CELL 

X1=0.5*(X(LM) +XNW ) 

X2=0. 5*(XTEMP(J)+X( LM) ) 

X3=XHMM 

X4=0. 5* ( XTEMP ( J-1 ) +X ( LKM ) ) 

Y 1 =0 . 5* ( Y ( LM ) +YNW ) 

Y2=0 . 5* ( YTEMP ( J ) +Y ( LMJ ) ) 

Y3=YHMM 

Y4=0. 5* ( YTEMP ( J-1 ) +Y ( LKM ) ) 

VECTOR  V43  =  (X4-X31I  +  (Y4-Y31J 
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490 
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SUBROUTINE  SWEEPT  (Continued) 


V34 

ss 

-V43 

V41 

s 

(X4-X1 ) I 

+ 

(Y4-Y1 ) J 

14  = 

- 

V41 

VI  2 

B 

(XI -X2)  I 

+ 

( Y 1 -Y2) J 

V21 

B 

-V 1  2 

V23 

B 

(X2-X3) I 

+ 

(Y2-Y3) J 

V32 

B 

-V23 

CALCULATE  THE  MAGNITUDE  SQUARED  OF  THE  VECTORS 

XMAG43=(X4~X3) * * 2+ ( Y4 - Y3 ) * *2 
XMAG41 =(X4-X1 )**2+(Y4-Yl )**2 
XMAG1 2s  ( XI -X2 ) *  *  2+  C  Y 1 -Y2)**2 
XMAG23=  (  X2-X3  )  *  *  2+  (Y2-Y3)  #  #2 

CALCULATE  THE  DOT  PRODUCT 

D432=-( (X4-X3)*(X3-X2)+(Y4-Y3)*(Y3-Y2) ) 

D321 =  -( ( X3 -X2 ) * ( X2-X1 ) +  ( Y3-Y2) * C Y2-Y1 ) ) 

D214=-( (X2-X1 )*(X1 -X4)+(Y2-Y1 )*(Y1 -Y4 ) ) 

D143=-( (XI -X4) * ( X4 -X3 )  +  ( Y  1 -Y4)*(Y4-Y3) ) 

CHECK  TO  SEE  IF  PROJECTION  LIES  INSIDE  CELL 


IF  (  D432  .LE.  0.0 
IF  (  D321  .LE.  0.0 
IF  (  D214  .LE.  0.0 
IF  (  D 1 43  .LE.  0.0 
D432=D432**2 
D321 =  D321 *  *  2 
D21 4  =  D21 4**2 
D143=D143**2 


NOW  FIND  MIN.  DISTANCE 


D432  =  0 . 
D321 =  0 . 
D2 14=0, 
D 1 43  =  0 , 


DELX=AM I N1 ( 


1 

2 

3 

4 

5 

6 
7 


XMAG43- 
XMAG23- 
XMAG23- 
XMAG1 2- 
XMAG1 2- 
XMAG4 1 ■ 
XMAG4 1 ■ 
XMAG43- 


D432/XMAG23 
D432/XMAG43 
D321/XMAG12 
D321 /XMAG23 
D21 4/XMAG4 1 
D214/XMAG1 2 
D 1 43/XMAG43 
D 1 43/XMAG4 1 


) 


XDH42*XH1 3+XH42*XDH1 3) 
XDH42#XH1 3+XH42#XDH 1 3 ) 


EVOL=  2 , # (DCLM) -DW ) / ( D ( LM ) +DW) 

EXXH=  DTA# (XDH42#YH13-YH42*XDH13) 

EYYH=-DTA#(YDH42#XH1 3-XH42* YDH 1 3 ) 

EXYH  =  0 . 5*  DTA*(YDH42*YH13-YH42*YDH13- 
EZZH=EV0L- EXXH-EYYH 

ALFA  =  0 . 5#  DTA* ( - YDH42* YH1 3+YH42*YDH1 3- 
30  MAT  =  MM ( K ,  J  ) 

COMPUTE  ARTIFICIAL  VISCOUS  STRESS 
DELD  =  DW-D(LM) 

IF  (ABS(DELD)  . LT ,  1  .  E-8  .AND.  ECLM)  . LT .  1.)  GO  TO  690 

IF  (DELD  .GT.  0. ) 

1 Q  =  DELD/DT# ( SP ( MAT ) *CL I N*SQRT ( AW ) +CQSQ#AW*DELD/DW/DT ) 

COMPUTE  ESTIMATE  OF  INTERNAL  ENERGY 

DELZ= (SXX(LM) *EXXH+SYY ( LM ) *EYYH+SZZ( LM) *EZZH+2 , #TXY ( LM ) *EXYH ) /DW 
EW  =  E ( LM ) +DELZ- ( P ( LM ) +Q ) * ( 1  ./DW-1  . /D(LM) ) 

STRESS  FROM  COMPOSITE  MODEL 

IF  ( NCMP ( MAT )  . EQ .  0 )  GO  TO  450 

SXXW=SXX ( LM ) 

SYYW=SYY ( LM ) 

SZZW=SZZ ( LM ) 

TXYW=TXY ( LM ) 

PW=  P ( LM ) 

CALL  REBAR ( 0, 5,  J,  K, MAT, N ,  I  H ( LM ) , DW, D ( LM )  , SXXW, SYYW, SZZW, TXYW, EW, PW 

1  , EXXH , EYYH , EZZH, EXYH , F, TH(LM) , -ALFA,  ESC, FS(LM) , DSTL ( LM ) , SRS ( LM ) , 

2  ZEVP ( LM ) , TEVP ( LM ) , YY ( LM ) , ROLD ( LM )  ,  I  PR ) 

TH ( LM) =  TH ( LM) -ALFA 
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SUBROUTINE  SWEEPT  (Continued) 


C 

C 

C 

450 


455 


C 

C 

C 

475 


C 

C 

C 

477 


C 

C 

C 


485 


C 

C 

C 

490 


GO  TO  600 

STRESS  FROM  POROUS  MODEL 

IF  ( NPOR(MAT)  .EQ.  0)  GO  TO  475 
IF  ( NPOR ( MAT )  .EQ.  4)  GO  TO  455 

CALL  POREQST ( 1 j 5j MAT j SP ( MAT ) j DW j D ( LM ) ^ EW j E ( LM )  F  PW  CZJ  CW I  IHfLM 

1  j DPDE, EQSTC ( MAT ) , EQSTD (MAT) ,  EQSTG ( MAT) , EQSTS(MAT) ' MU (MAT) ' 

2  RHOS ( MAT ) t Y  AD ( MAT ) x NDS(MAT) , NPR(MAT) , J ) 

GO  TO  550 

CONTINUE 
SX=SXXCLM) -P(LM) 

SYnSYY(LM) -P(LM) 

SZ=SZZ(LM) -P(LM) 

TXYW=TXY ( LM ) 

CALL  CAP1  ( 1 j  5j  MAT jNj  I H ( LM ) x  DW, D ( LM) ,  EWj  EXXH. EYYH  EZZH  EXYH 
1  SX , SY , SZ , TXYW , ZEVP ( LM ),K, J, TEVP ( LM ) )  '  '  '  XYH' 

PW= - ( SX+SY+SZ )  /3 . 

SXXW=SX+PW 
SYYW=SY+PW 
SZZW=SZ+PW 
GO  TO  600 

STRESS  FROM  FRACTURE  MODEL 

IF  (NFR(MAT)  . EQ .  0)  GO  TO  500 
NFRM=NFR(MAT) 

GO  TO  (477J485J490J490J500J500J495)NFRM 
DUCTILE  FRACTURE 


IHCLM)  .EQ.  2)  GO  TO  500 


IF  ( PC  LM)  .GT.  TSRfMATj  5)  .AND. 

SXXW  =  +SXX ( LM ) 

SYYW=+SYY ( LM ) 

SZZW=+SZZ ( LM ) 

TXYW=+TXY ( LM ) 

PW=P( LM ) 

,  CAbL?,FRACTCSXXWj  SYYW’  SZZW'  TXYW-  +EXXH,  +EYYHj  +EZZH,  +EXYH  PW 
o  ' ENT(LM) ' Dw< D(LM) . DT  , E ( LM ) , EW( EQSTC (MAT )  EQSTG (MAT ) 

2r umUm^AI  ' RH0S(MAT) - TSRj  YY (LM) . YD ( MAT ) , F , MAT , ALFA ) 

GO  TO  600 
BRITTLE  FRACTURE 

IF  ( AMAX1 ( TXX ( LM ) ,  TYY ( LM) , TZZ ( LM) )  +Q  .LT.-TSRCMAT  5) 

1  .AND.  IHfLM)  . EQ . 2 )  GO  TO  500 
I H ( LM) = 1 

SXXW=SXX ( LM ) 

SYYW=SYY ( LM ) 

SZZW=SZZ ( LM ) 

TXYW=TXY ( LM) 

TXYW= -TXY  C  LM ) 

PW=P ( LM ) 

LS=LSFRACT 

IF  (MODfNj I PRI NT)  EQ.  0  .AND.  LS  ,NE.  0)  LS=2 

CALL  ERAGf LSj 5j MATj J j K j N; I H ( LM) j EQSTC ( MAT ) , DW . D ( LM) . DT  EW  E(LM) 

2  EALFAEpuHiyyuHivvuF(LM) J MU(MAT) ' EQSTG (MAT) , RHOS (MAT) , TH(LM) , 

3  comLM+37?^  '  '  jYY(LM)jTSR'CLB(LM),CL1(LM)'CN(LM)j 

LSFRACT= 1 

TH ( LM ) =TH ( LM ) -ALFA 
SZZW= -SXXW-SYYW 
GO  TO  600 

SHEAR  BAND  MODEL 

SXXW=SXX ( LM ) 

SYYW=SYY ( LM ) 

SZZW=SZZ( LM ) 

TXYW=  TXY ( LM ) 

PW  =  P( LM ) 

EMELT=0. 1 *EQSTE(MAT) 

LS  =  2 

IF  ( MOD( Nj I PRI NT )  . EQ .  0)  LS  =  3 
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SUBROUTINE  SWEEPT  (Continued) 

CALL  SHEAR2C  LSj 5, MAT j  K,  J ,  I H ( LM) , SXXW, SYYW, TXYW, PW, COM( L+24 ) , DW, 

SWEEPT 

665 

1  D ( LM ) , DT , EW j  E  ( LM ) , COMCLM+21 ) , EMELT, COM( LM+22 ) , EXXH, EYYH, EXYH, 

SWEEPT 

666 

2  F , YY ( LM ) , COM ( LM+23 ) , TH( LM ) , -ALFA, ESC, COM ( LM+25 ) ) 

SWEEPT 

667 

SZZW= -SXXW-SYYW 

SWEEPT 

668 

TH ( LM) =TH ( LM) -ALFA 

SWEEPT 

669 

GO  TO  600 

SWEEPT 

670 

c 

STATIC  FRACTURE  MODEL 

SWEEPT 

671 

c 

SWEEPT 

672 

495 

LS=LSFRACT 

SWEEPT 

673 

IF  ( I  HEAD  .GT.  1  .AND.  LS  .NE.  0)  LS  =  2 

SWEEPT 

674 

SXXW=SXX ( LM ) 

SWEEPT 

675 

SYYW=SYY ( LM ) 

SWEEPT 

676 

SZZW^SZZ ( LM ) 

SWEEPT 

677 

TXYW=TXY(LM) 

SWEEPT 

678 

PW=P ( LM ) 

SWEEPT 

679 

CALL  DFRACTS ( LS, J , K, N , I H ( LM ) , MAT, SXXW, SYYW, SZZW, TXYW, PW, EXXH, EYYH , 

SWEEPT 

680 

1  EZZH, EXYH , DW, D ( LM ) , YY(LM) , EW, E(LM) , COMCLM+19) , TSR, ESC) 

SWEEPT 

681 

LSFRACT  = 1 

SWEEPT 

682 

GO  TO  600 

SWEEPT 

683 

C 

SWEEPT 

684 

C 

MODELS  FOR  PRESSURE 

SWEEPT 

685 

C 

SWEEPT 

686 

500 

CONTINUE 

SWEEPT 

687 

NPRM=NPR ( MAT ) +1 

SWEEPT 

688 

GO  TO  (520,510)  NPRM 

SWEEPT 

689 

C 

SWEEPT 

690 

C 

PRESSURE  FROM  EXPLOSION 

SWEEPT 

691 

C 

SWEEPT 

692 

510 

CONTINUE 

SWEEPT 

693 

CALL  EXPLODE (3, 5, MAT, EW, DW, D ( LM ) , PW, Q, COM( 1 8+LM) , COM( 1 9+LM) , 

SWEEPT 

694 

1  COM ( 20+LM ) , YNW, YNW-Y ( LKM) , J, K, TYME ) 

SWEEPT 

695 

GO  TO  550 

SWEEPT 

696 

520 

CONTINUE 

SWEEPT 

697 

C 

SWEEPT 

698 

C 

PRESSURE  FROM  M I E -GRUNE I  SEN 

SWEEPT 

699 

C 

SWEEPT 

700 

EMU=DW/RHO ( MAT ) -1 . 

SWEEPT 

701 

PHUG=+EMU* ( EQSTC ( MAT ) +EMU* ( EQSTD ( MAT ) +EMU*EQSTS ( MAT ) ) ) 

SWEEPT 

702 

PW=PHUG* ( 1 . -EQSTGC MAT )* EMU/2. ) +EQSTG ( MAT ) *DW*EW 

SWEEPT 

703 

C 

SWEEPT 

704 

C 

MODELS  FOR  DEVIATOR  STRESS 

SWEEPT 

705 

C 

SWEEPT 

706 

550 

CONTINUE 

SWEEPT 

707 

IF  ( NDS ( MAT )  .EQ.  7)  GO  TO  560 

SWEEPT 

708 

IF  ( YCC MAT )  .LE,  0.)  GO  TO  600 

SWEEPT 

709 

EAVG=EV0L/3 . 

SWEEPT 

710 

BETA=2. * TXY ( LM ) *ALFA 

SWEEPT 

71  1 

SXXW=SXX ( LM ) +G2 ( MAT) * ( EXXH-EAVG) +BETA 

SWEEPT 

712 

SYYW=SYY ( LM ) +G2( MAT) * ( EYYH-EAVG) -BETA 

SWEEPT 

713 

SZZW=SZZ ( LM ) +G2 (MAT) * ( EZZH-EAVG) 

SWEEPT 

714 

TXYW = TXY ( LM ) +G2 (MAT) *EXYH+ (SYY ( LM ) -SXX( LM) ) *ALFA 

SWEEPT 

715 

S J2  =  SXXW*  *2+SYYW*  *2+SZZW*  *2+2  .  *  TXYW*  *2 

SWEEPT 

716 

YYY  =  0 . 666667* YY ( LM ) *  *  2 

SWEEPT 

717 

IF  (SJ2  .LE.  YYY)  GO  TO  600 

SWEEPT 

71  8 

CY=SQRT( YYY/SJ2) 

SWEEPT 

71  9 

SXXW=CY*SXXW 

SWEEPT 

720 

SYYW=CY*SYYW 

SWEEPT 

721 

SZZW  =  CY  * SZZW 

SWEEPT 

722 

TXY W  =  CY  * TXYW 

SWEEPT 

723 

GO  TO  600 

SWEEPT 

724 

560 

SXXW=SXX ( LM ) 

SWEEPT 

725 

SYYW=SYY ( LM ) 

SWEEPT 

726 

SZZW=SZZ ( LM ) 

SWEEPT 

727 

TXYW=TXY ( LM ) 

SWEEPT 

728 

CALL  EP ( 1 , MAT , N, SXXW, SYYW, SZZW, TXYW, YY(LM) , EXXH, EYYH,  EZZH,  EXYH, 

SWEEPT 

729 

1  MU ( MAT ) , COM ( LM+ 1 9 ) ) 

SWEEPT 

730 

C 

SWEEPT 

731 

C 

ADJUST  INTERNAL  ENERGY 

SWEEPT 

732 

C 

SWEEPT 

733 

600 

IF  (NPR(MAT)  .EQ.  1)  GO  TO  620 

SWEEPT 

734 

EW  =  E ( LM ) +0 . 5  * ( ( SXX ( LM ) +SXXW ) *  EXXH  + ( SY Y ( LM ) +SYYW ) *  E YY  H+ ( SZZ ( LM )  + 

SWEEPT 

735 

1  SZZW) *EZZH+2 . * ( TXY ( LM ) +TXYW ) *EXY  H ) /DW- ( ( P ( LM ) +PW ) /2 . +Q ) * ( 1  . /DW- 

SWEEPT 

736 

2  1 . /D ( LM ) ) 

SWEEPT 

737 

C 

SWEEPT 

738 

C 

COMPUTE  TOTAL  STRESS 

SWEEPT 

739 
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SUBROUTINE  SWEEPT  (Continued) 


C 

620  TXXW=SXXW-PW-Q 
TYYW=SYYW-PW-Q 
TZZW=SZZW-PW-Q 
C 

C  SEPARATION  FOR  GUARD  RING  OR  IMPACT  PLANE 

C 

IF  ( NFR ( MAT )  . NE .  5  .AND.  NFR ( MAT )  . NE .  6)  GO  TO  690 

IF  (NFR (MAT)  . EQ .  6  )  GO  TO  650 

IF  ( TXXW  .LE.  TSR(MAT, 1 ) )  GO  TO  690 

PI « TXXW* EQSTC( MAT ) / ( EQSTC ( MAT ) +1 . 333* MU (MAT) ) 

DSX=1 . 333* TXXW* MU ( MAT ) / ( EQSTC ( MAT ) +1 . 333*MU(MAT) ) 

TXXW=TXXW-DSX-P1 

TYYW=TYYW-P1 +DSX/2. 

TZZW=TZZW-P1 +DSX/2 . 

PW= - ( TXXW+TYYW+TZZW ) /3 . 

TXYW=0. 

GO  TO  680 

650  IF  ( TYYW  .LE.  TSR (MAT. 1 ) )  GO  TO  690 

P 1 = TYYW* EQSTC ( MAT ) / ( EQSTC (MAT ) +1 . 333*MU(MAT) ) 

DSY= 1 . 333*  TYYW* MU ( MAT ) / ( EQSTC ( MAT )  +  1 . 333*MU(MAT) ) 
TXXW=TXXW-P1 +DSY/2. 

TYYW=TYYW-P1 -DSY 
TZZW=TZZW-P1 +DSY/2. 

PW= - ( TXXW+TYYW+TZZW ) /3  . 

TXYW=0 . 

680  IF  (IH(LM)  .EQ.  1)  GO  TO  690 
I H ( LM ) = 1 
PRINT  1680, K,J 

1680  FORMAT ( *  SEPARATION  AT  CELL  K,J  =*214) 

C 

C  COMPUTE  SOUND  SPEED  AND  TIME  STEP 
C 

690  EM0D=O , 

SPSQ=SP(MAT) **2 

IF  ( ABS( DW-D ( LM) )  . LT .  1.E-4)  GO  TO  700 

EM0D=PW/ ( DW/RHO ( MAT ) -1 . )+2. *Q*DW/ ( DW-D ( LM ) )+1 . 33*MU(MAT) 
SPSQ=AMAX1 ( EMOD/D ( LM ) , 0 . 2*SPSQ) 

700  DTSQ=DELX/SPSQ 

IF  ( DTSQ  . GE .  DTSQM)  GO  TO  750 
KT  =  K 
JT  =  J 

DELXT  =  DELX 
DTSQT  =  DTSQ 
SPSQT  =  SPSQ 
DTSQM=DTSQ 
C 

C  ******  MAJOR  PRINTOUT 
C 

750  GO  TO  (780,755,760)  I  HEAD 

755  PRINT  1755, N , TYME, DT, CALT I M, KT , JT , DELXT, DTSQT, SPSQT, LISTX, 
1  LISTXD, LISTS, LISTE 
I HEAD=3 
GO  TO  761 

760  GO  T0(765, 761 , 780)  KHEAD 
761  IF  ( MOD ( N, KFULL )  . EQ .  0)  GO  TO  763 

KHEAD=3 

IF  (K  .GT.  KPMAX  .OR.  K  .LT.  KPMIN)  GO  TO  780 
IF  (MOD(K-KPMI N, KSKI P)  .NE.  0)  GO  TO  780 
763  ZX=XNW*CALX 
ZY  =  YNW*  CALX 
ZXD=XDNH*CALXD 
ZYD=YDNH*CALXD 

PRINT  1 756, K, N, TYME, ZX, ZY, ZXD, ZYD 
KHEAD= 1 
GO  TO  780 

765  I F ( I  .GT.  JPMAX  .OR.  J  , LT .  JPMIN)  GO  TO  780 
ZX=XNW*CALX 
ZY=YNW*CALX 
ZXX= TXXW* CALS 
ZYY=TYYW*CALS 
ZZZ=TZZW*CALS 
ZXY  =  TXYW*  CALS 
ZE=EW*CALE 
ZP=PW*CALS 
ZQ=Q*CALS 


SWEEPT 

740 

SWEEPT 

741 

SWEEPT 

742 

SWEEPT 

743 

SWEEPT 

744 

SWEEPT 

745 

SWEEPT 

746 

SWEEPT 

747 

SWEEPT 

748 

SWEEPT 

749 

SWEEPT 

750 

SWEEPT 

751 

SWEEPT 

752 

SWEEPT 

753 

SWEEPT 

754 

SWEEPT 

755 

SWEEPT 

756 

SWEEPT 

757 

SWEEPT 

758 

SWEEPT 

759 

SWEEPT 

760 

SWEEPT 

761 

SWEEPT 

762 

SWEEPT 

763 

SWEEPT 

764 

SWEEPT 

765 

SWEEPT 

766 

SWEEPT 

767 

SWEEPT 

768 

SWEEPT 

769 

SWEEPT 

770 

SWEEPT 

771 

SWEEPT 

772 

SWEEPT 

773 

SWEEPT 

774 

SWEEPT 

775 

SWEEPT 

776 

SWEEPT 

777 

SWEEPT 

778 

SWEEPT 

779 

SWEEPT 

780 

SWEEPT 

781 

SWEEPT 

782 

SWEEPT 

783 

SWEEPT 

784 

SWEEPT 

785 

SWEEPT 

786 

SWEEPT 

787 

SWEEPT 

788 

SWEEPT 

789 

SWEEPT 

790 

SWEEPT 

791 

SWEEPT 

792 

SWEEPT 

793 

SWEEPT 

794 

SWEEPT 

795 

SWEEPT 

796 

SWEEPT 

797 

SWEEPT 

798 

SWEEPT 

799 

SWEEPT 

800 

SWEEPT 

801 

SWEEPT 

802 

SWEEPT 

803 

SWEEPT 

804 

SWEEPT 

805 

SWEEPT 

806 

SWEEPT 

807 

SWEEPT 

808 

SWEEPT 

809 

SWEEPT 

810 

SWEEPT 

81  1 

SWEEPT 

81  2 

SWEEPT 

813 

SWEEPT 

814 

SWEEPT 

815 
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SUBROUTINE  SWEEPT  (Continued) 


ZSP=SPSQ* 1 ,  E-  1  0 

SWEEPT 

61b 

ZXD=XDNH*CALXD 

SWEEPT 

817 

zyd«ydnh*calxd 

SWEEPT 

018 

ICOND«0 

SWEEPT 

819 

IF  (MM(KjJ)  .GT.  0  .AND.  NVAR (MAT)  , GE .  2)  IC0ND=IH(LM) 

SWEEPT 

820 

PRINT  1 760  j  J , ZX j ZY, ZXX, ZYY, ZZZ, ZXY, ZP, ZE, DW, ZQ, ZSP, ZXD, ZYD,  I COND 

SWEEPT 

821 

1  j  AMAT (MAT,  1 ) 

SWEEPT 

822 

780 

CONTINUE 

SWEEPT 

823 

IF  Cl  TR I  .EC).  1  )  GO  TO  795 

SWEEPT 

824 

IF  (K  .EC).  1  )  GO  TO  790 

SWEEPT 

825 

IF  ( J  .EQ.  1 )  GO  TO  785 

SWEEPT 

826 

LMM=LVAR (K- 1 , J-1 ) 

SWEEPT 

827 

IF  ( LMM  , LE .  0)  GO  TO  785 

SWEEPT 

828 

X ( LMM ) SXKMJM 

SWEEPT 

829 

Y ( LMM) =YKMJM 

SWEEPT 

830 

785 

CONTINUE 

SWEEPT 

831 

LMJ  =  LVAR(K-1 j  J ) 

SWEEPT 

832 

IF  (LMJ  .LE.  0)  GO  TO  790 

SWEEPT 

833 

XHMM= ( X ( LM J ) +XTEMP ( J ) ) /2 . 

SWEEPT 

834 

YHMM= ( Y ( LMJ ) +YTEMP ( J ) ) /2 . 

SWEEPT 

835 

XKMJM=XTEMP( J ) 

SWEEPT 

836 

YKMJM=YTEMP( J ) 

SWEEPT 

837 

XD(LMJ) =XDTEMP( J) 

SWEEPT 

838 

YD ( LMJ) =YDTEMP( J ) 

SWEEPT 

839 

790 

IF  (LVARM  .LE.  0)  GO  TO  920 

SWEEPT 

84  0 

XTEMP ( J ) =XNW 

SWEEPT 

841 

YTEMP ( J ) =YNW 

SWEEPT 

842 

XDTEMP ( J ) =XDNH 

SWEEPT 

843 

YDTEMP ( J ) = YDNH 

SWEEPT 

844 

IF  ( MM ( K j  J )  .EQ.  0)  GO  TO  800 

SWEEPT 

845 

795 

LM=LVARM 

SWEEPT 

846 

IF  ( I TR I  .EQ.  2)  LM=M( LM ) 

SWEEPT 

847 

D(LM)=DW 

SWEEPT 

646 

E  (  LM )  *  EW 

SWEEPT 

849 

SXX ( LM ) =SXXW 

SWEEPT 

850 

SYY ( LM ) =SYYW 

SWEEPT 

851 

SZZ ( LM ) =SZZW 

SWEEPT 

852 

TXY ( LM ) =  TXYW 

SWEEPT 

853 

TXX ( LM ) =TXXW 

SWEEPT 

854 

TYY ( LM ) =  TYYW 

SWEEPT 

855 

TZZ(LM) =TZZW 

SWEEPT 

856 

P  (  LM )  =  PW 

SWEEPT 

857 

IF  (  ITRI  .EQ.  1  )  GO  TO  405 

SWEEPT 

858 

800 

IF  (K  .NE.  JEDK(JE)  .OR.  J  . NE .  JEDJ(JE))  GO  TO  920 

SWEEPT 

859 

IF  (JEDT(JE)  . LT .  0)  GO  TO  820 

SWEEPT 

860 

LM  =  LVAR(Kj  J ) 

SWEEPT 

861 

LL=LM+ JEDT ( JE ) - 1 

SWEEPT 

862 

SJ( JE)=X(LL) 

SWEEPT 

863 

IF  (JEDT ( JE )  .EQ.  16)  S J ( JE ) = I H ( LM ) 

SWEEPT 

864 

61  0 

JE= JE+ 1 

SWEEPT 

865 

GO  TO  800 

SWEEPT 

866 

820 

J J= I ABS (JEDT(JE) ) -40 

SWEEPT 

867 

GO  TO  (641 , 842, 843, 644 , 645, 846, 647, 848, 649, 850, 851 , 852,  853, 

SWEEPT 

666 

1  854  j 655 ) J J 

SWEEPT 

669 

841 

CONTINUE 

SWEEPT 

870 

842 

CONTINUE 

SWEEPT 

871 

843 

CONTINUE 

SWEEPT 

872 

844 

CONTINUE 

SWEEPT 

873 

845 

SJ(JE)=0.471 40*SQRT ( (EXXH-EYYH) ##2+( EYYH-EZZH) ##2+( EZZH-EXXH) **2 

SWEEPT 

874 

1  +6. *EXYH**2)+SJ( JE) 

SWEEPT 

875 

GO  TO  810 

SWEEPT 

876 

846 

SJ ( JE ) =EXXH+SJ ( JE ) 

SWEEPT 

877 

GO  TO  810 

SWEEPT 

878 

847 

SJ ( JE ) =  EYYH+SJ ( JE ) 

SWEEPT 

879 

GO  TO  810 

SWEEPT 

660 

848 

SJ( JE) =EZZH+SJ( JE) 

SWEEPT 

881 

GO  TO  810 

SWEEPT 

882 

649 

SJ( JE)=EXYH+SJ(JE) 

SWEEPT 

883 

GO  TO  810 

SWEEPT 

884 

850 

SJ( JE)=Q 

SWEEPT 

885 

GO  TO  810 

SWEEPT 

666 

851 

SJ ( JE ) =SXXW- PW 

SWEEPT 

887 

GO  TO  810 

SWEEPT 

868 

852 

SJ ( JE ) =SYYW-PW 

SWEEPT 

689 

GO  TO  810 

SWEEPT 

690 

133 


o  o 


SUBROUTINE  SWEEPT  (Concluded) 


853  SJ( JE)»S22W-PW 
GO  TO  810 

854  EF  =  0  , 

NP  =  1 

IF  (IJBUND  ,GT,  0 ) NP  =  2 
KK=MAX0(K-1  ,  1  ) 

LM1 =LVAR(KKj 1 ) 

DO  8545  JST*2,JMAX 
LM2«LVAR ( KK , JST) 

LMS  =  LVAR(Kj  JST) 

EF= EF+TXX ( LMS ) * ( Y ( LM2 ) * *NP -Y ( LM 1 )*#NP) 

8545  LM 1 =  LM2 

S J ( JE ) »EF/Y ( LM2 ) *  *NP 
GO  TO  810 

855  LM1 =LVAR(K, JMAX) 

I F ( N  .EQ.  1 )  RADO=Y ( LM1 ) 

SJ( JE)=-2. *ALOG ( Y ( LM1 )/RADO) 

GO  TO  810 

920  CONTINUE 

I F  (K  , EQ.  1 )  GO  TO  940 
LM J  =  LVAR ( K  —  1 , JMAX) 

IF  ( LM J  .LE.  0)  GO  TO  940 
X ( LM J ) =XKM JM 
Y ( LMJ ) =YKMJM 
940  KK=K 

IF  (K  .LT.  KCHEK  .OR.  K  . EQ .  KMAX)  GO  TO  950 
DO  945  J=1 , JMAX 
LM J  =  LVAR ( K j  J ) 

IF  (LMJ  .LE.  0)  GO  TO  945 
IF  ( ABSCXD(LMJ) ) . GT.  1.  .OR 
945  CONTINUE 
GO  TO  960 

948  KCHEK  =  M I  NO ( K  +  1 ,  KMAX ) 

GO  TO  960 
950  CONTINUE 
960  CONTINUE 

DO  980  J*1 , JMAX 
LM J  =  LVAR (KK,  J ) 

IFCLMJ  .LE.  0 ) GO  TO  980 
X( LMJ ) =XTEMP ( J ) 

Y ( LMJ ) =YTEMP( J ) 

XD ( LMJ ) =XDTEMP ( J ) 

YD ( LM J ) a YDTEMP ( J ) 

980  CONTINUE 

DTW=SQRT ( DTSQM ) * ( 1 . -3. *TRIQ) 

RETURN 

******  FORMATS 

1755  FORMAT  (  1  5H0  EDIT  AT  CYCLE  14,71-1,  TYME  =  E  1  0 . 4 ,  1  2H  SECS  ,  DT  =E10.4 

1  9H  j  CALT  IM=1PE10,3/31H  TIME  STEP  CONTROL  AT  KT,  JT=2I4, 

2  18H  DELX,  DTSQ j  SPSQ=  1 P3E  13.5/  1  1 H  X,  Y  IN  ,A3,12h,  XD,  YD  IN 

3  A6,  1 4 H ,  STRESSES  IN  A7, 7H ,  E  IN  A7, 29H,  D  IN  MG/M3 ,  SP  IN  (KM/SE 
40  2  ) 

1756  F0RMATC10H  COLUMN  K=I3J4HJ  N=I4J7HJ  TIME3  E10.4,4H,  X=F8 . 4 ,  4H,  Y  = 

1  F8. 4, 38X, 1 1 HXDNH,  YDNH=2F9 . 3/  3H  J7X, 1 HX7X, 1 HY7X, 4HTXXW7X, 

2  4HTYYW7X , 4HT22W7X, 4HTXYW1 OX,  1 HP6X,  1 HE9X,  1  HD  1  OX,  1 HQ5X , 4HSPSQ5X , 

3  4HXDNH5X, 4HYDNH2X, 1 HH) 

1 760  FORMAT  (13, 2F8.4, 5F 1 1  . 4 , F7 .  1 , FI  0 . 6 , F 1 1  . 4, 3F9. 3,  I  3, A4) 

END 


ABS( YD( LMJ) ) . GT.  1.)  GO  “0  948 
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891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 
91  1 
912 
91  3 
914 
91  5 

916 

917 
91  8 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 

945 

946 

947 
946 
949 
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Appendix  F 


GLOSSARY 


The  nomenclature  for  this  manual  is  given  in  two  groups.  First, 
symbols  used  in  the  derivations  are  listed,  followed  by  the  input 
quantities  and  other  major  variables  in  the  computer  program. 
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Nomenclature  of  Text 


A 

2 

Cell  area,  cm 

A 

XX 

2 

Area  of  cell  facing  the  x  direction,  cm 

A 

xy 

2 

Area  of  cell  in  the  xy  plane,  cm 

A 

yy 

2 

Area  of  cell  facing  the  y  direction,  cm 

A0’  A3 

Area  of  two  triangular  portions  of  a  quadrilaterial  cell,  cm2 

b 

Number  of  cells  over  which  a  detonation  front  is  spread. 

C,  D,  S 

Coefficients  in  the  series  expansion  for  Hugoniot 
pressure,  dyn/cm^ 

C' 

Effective  sound  speed  considering  only  bulk  and  shear 

moduli,  cm/sec 

c 

e 

Effective  sound  speed  for  determining  the  time  step, 

cm/ sec 

C 

s 

Sound  speed,  cm/sec 

C 

o 

Coefficient  of  quadratic  artificial  viscosity  relation 

ci 

Coefficient  of  linear  artificial  viscosity  relation 

D 

X 

Detonation  velocity,  cm/sec 

E 

Internal  energy,  erg/g 

ECJ 

Internal  energy  at  the  C-J  point,  erg/g 

eh 

Internal  energy  on  the  Hugoniot,  erg/g 

fb 

Detonated  fraction  of  an  explosive 

F 

X 

Force  in  the  x  direction,  dyn 

F 

y 

Force  in  the  y  direction,  dyn 

G 

2 

Shear  modulus,  dyn/cm 

J 

Lagrangian  position  (radial  for  axisymmetric  geometry) 

K 

Lagrangian  position  (axial  for  axisymmetric  geometry) 
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M 

Material  number;  or  cell  mass 

M 

e 

2 

Effective  modulus  for  determining  the  time  step,  dyn/cm 

n 

Time  step  number 

P 

2 

Pressure,  dyn/cm 

PCJ 

2 

Pressure  at  the  C-J  point,  dyn/cm 

PH 

2 

Hugoniot  pressure,  dyn/cm 

Q 

2 

Artificial  viscous  stress,  dyn/cm 

Qx 

Chemical  energy  of  the  explosive,  erg/g 

Q  ,  Q  ,  Q 

xx  yy  Xxy 

2 

Triangular  artificial  viscosity  stresses,  dyn/cm 

T 

2 

Total  mechanical  stress,  dyn/cm 

T 

q 

Coefficient  of  triangular  artificial  viscosity  relation 

T 

XX 

2 

Total  stress  in  the  x  direction,  dyn/cm 

T 

xy 

2 

Shear  stress  on  the  xy  plane,  dyn/cm 

T 

yy 

2 

Total  stress  in  the  y  direction,  dyn/cm 

T 

22 

2 

Total  stress  in  the  z  direction,  dyn/cm 

t 

Time  in  the  problem,  sec 

At 

Time  increment,  sec 

u 

Particle  velocity  in  the  x  direction,  cm/sec 

UCJ 

Particle  velocity  at  the  C-J  point,  cm/sec 

V  V  Uy 

Constants  in  the  series  expansion  for  particle  velocity 

in  the  x  direction 

V 

3 

Specific  volume,  cm  /g 

VCJ 

3 

Specific  volume  at  the  C-J  point,  cm  /g 

V 

Particle  velocity  in  the  y  direction,  cm/sec 

V  ,  V  ,  V  , 

o’  x*  y 

Constants  in  the  series  expansion  for  particle  velocity 
in  the  y  direction 
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X 


X 


V  yd 


y 


y 

z 


z 


r 


Y 


Y 


xy 


6 .  . 

ij 


o  .  . 

IJ 

£ij 

ij 


Coordinate  location  in  x  direction,  cm  (axial  for 
axisymmetric  geometry) 

Particle  velocity  in  the  x  direction,  cm/sec 

Coordinates  of  the  initiation  point  of  an  explosive,  cm 

Coordinate  location  in  y  direction,  cm,  (radial  for 
axisymmetric  geometry);  or  yield  strength,  dyn/cm2 

Particle  velocity  in  the  y  direction,  cm/sec 

Quantity  stored  as  the  cell  mass:  for  planar  cells,  Z 
is  the  mass  in  g/cm;  for  axisymmetric  cells,  Z  is  the 
1.5/tt  times  the  mass  in  g. 

Cell  midpoint  used  in  explosive  calculations,  cm 
Initiation  point  for  a  detonation,  cm 
Griineisen  ratio 

Polytropic  gas  exponent 
Engineering  shear  strain 

Kronecker  delta:  <$  “  1  for  i  =  j;  otherwise,  6=0 

Tensor  strain  component 

Deviator  strain 

Elastic  deviator  strain 
\ 

o  P  p  . 

£.  ’  equivalent  plastic  strain 

yj  3  1J  1J 

Plastic  strain  tensor 


Strain  in  the  x  direction 
Strain  in  the  y  direction 
Strain  in  the  z  direction 
Angle  in  a  circumferential  direction 
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Proportionality  factor  used  in  plastic  flow  stress-strain 

2 

relation,  cm  /dyn 
p/pQ  -  1,  strain 

3 

Cell  density,  g/cm 

3 

Initial  density,  g/cm 
2 

Stress,  dyn/cm 

2 

Tensor  stress  component,  dyn/cm 

2 

Deviator  stress,  dyn/cm 


r  3  2 

*2  effective  stress,  dyn/cm 


) 

Stress  component  computed  on  an  elastic  basis,  dyn/cm 


[3  .N 

\  2  °ij  aij »  errective  stress  computed  on  an  elastic 

basis,  dyn/cm^ 

Rotation  in  the  xy  plane,  positive  counterclockwise 


Nomenclature  of  TROTT 


A(  ) 

2 

Area  of  cell  in  the  xy  plane,  cir. 

ALFA 

Incremental  cell  rotation,  positive  clockwise 

ANGLE 

Angle  of  boundary  for  an  oblique  impact,  deg 

BFR(  ) 

Material  properties  array  used  for  fracture  models 

CALE,  CALS, 

Calibration  factors  for  transforming  energy,  stress, 

CALX, 

distance  and  velocity  respectively  from  the  internal 

CALXD 

c.g.s.  system  to  form  the  IPRINT  listings  in  the  units 
described  by  the  names  LISTE,  LISTS,  LISTX  AND  LISTXD. 

CALTIM 

Computation  time  from  start  of  reading  input,  sec 

CLIN 

C^;  coefficient  of  linear  artificial  viscosity 

C0M(  ) 

One-dimensional  array  containing  all  cell  and  coordinate 

variables 

CQSQ 

2 

^o’  coefficient  of  quadratic  artificial  viscosity 

D(  ) 

3 

Cell  density,  g/cm 

DELTIM 

Computation  time  for  a  time  increment,  sec 

DT 

Time  increment,  sec 

DTN 

One-half  the  current  and  previous  time  increments,  sec 

E(  ) 

Internal  energy,  erg/g 

EQSTC (  ), 

C,  D,  S;  coefficients  in  series  expansion  for 

EQSTD(  ), 

2 

Hugoniot  pressure  dyn/cm 

EQSTS (  ) 

EQSTE  (  ) 

Sublimation  energy,  erg/g  (unusec) 

EQSTG (  ) 

T;  Grlineisen's  ratio 

EQSTH(  ) 

Gas  Grlineisen 1  s  ratio  (unused) 

ESC  (  ) 

Large  array  for  equation-of-state  constants.  See 

Appendix  A  for  definitions 
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G2(  ) 

2 

2 G;  twice  the  shear  modulus,  dyn/cm 

IBDJ1(  ), 

Range  of  J  values  designating  a  special  boundary 

IBDJ2(  ) 

condition 

IBDK1 (  ), 

Range  of  K  values  designating  a  special  boundary 

IBDK2 (  ) 

condition 

IBDX(  ), 

IBDY (  ) 

Indicators  for  displacement  boundary  condition  control 

on  the  X  or  Y  locations.  The  values  mean: 

0  Free,  no  control 

1  No  velocity  change 

2  X  (or  Y)  is  kept  <  XFIX  (or  YFIX) 

3  X  (or  Y)  is  kept  ■>  XFIX  (or  YFIX) 

I  CAL 

Indicator  for  special  controls  on  the  units  used  for 

IPRINT  listings 

IH  (  ) 

Indicator  array  used  with  some  material  models 

IJBUND 

Geometry  and  boundary  indicator,  see  Table  1  in 

Section  5 

IMAX 

Maximum  number  of  cycles  for  a  run,  or  for  the  increment 

in  a  restarted  run 

IPRIND 

An  indicator  for  reading  print  options  KSKIP,  KFULL , 

KPMAX,  KPMIN,  JPMAX,  and  JPMIN  to  alter  the  normal  edit 
listings 

IPRINT 

Frequency  in  computational  cycles  at  which  edit  listings 
of  cell  and  coordinate  variables  are  requested 

IVTYPE 

Velocity  initialization  indicator,  see  Table  1  in 

Section  5 

J 

Lagrangian  coordinate 

JEDJ (  ) , 

J,  K,  and  variable  type  values  in  a  historical  listing 

JEDK(  ) , 

request.  See  Table  2  in  Section  5 

JEDT(  ) 

JMAX 

Maximum  J  value  in  the  layout 
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JPMAX, 

Maximum  and  minimum  J  values  for  which  edit  listings 

JPMIN 

are  given  when  the  cycle  is  not  a  multiple  of  KFULL 

JPRINT 

Print  indicator  for  obtaining  edit  listings  at  every 

cycle  from  JP1  to  JP2.  JPRINT  is  the  number  of  groups 
of  JP1  and  JP2 

JP1(  ), 

Minimum  and  maximum  computational  cycles  for  which  edit 

JP2  (  ) 

listings  are  requested  at  each  cvcle 

JSIZE 

Dimension  of  the  COM  array,  set  in  TROTT  (Section  5.5) 

JSLIDE 

Indicator  for  a  slide  line  between  J  rows  JSLIDE-1 
and  JSLIDE  with  master  cells  on  che  JSLIDE  side 

JU 

Maximum  J  value  initialized  at  the  velocity  UZERO 

JXX 

Maximum  number  of  J  values  permitted,  set  in  TROTT 

Jl,  J2 

Range  of  J  values  for  a  quadrilateral  set  of  cells 

K 

Lagrangian  coordinate 

KCHEK 

Maximum  value  of  K  treated  in  the  wave  propagation 
calculations 

KFULL 

Frequency  in  computational  cycles  at  which  a  full  edit 
listing  is  given 

KMAX 

Maximum  K  value  in  the  layout 

KPMAX, 

Maximum  and  minimum  K  values  for  which  edit  listings  are 

KPMIN 

given  when  the  cycle  is  not  a  multiple  of  KFULL 

KSKIP 

Frequency  in  K  values  at  which  K  columns  are  printed  in 
an  edit  listing 

KSLIDE 

Indicator  for  a  slide  line  between  K  rows  KSLIDE-1 
and  KSLIDE  with  master  cells  on  tne  KSLIDE-1  side 

KU 

Interface  K  value  for  a  projectile  impact.  If  IVTYPE  =  1, 
rows  1  to  KU  are  given  an  initial  velocity.  For 

IVTYPE  =  -1,  rows  KU  to  KMAX  are  given  an  initial  velocity 
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KXX 

Maximum  number  of  K  values  permitted,  set  in  TROTT 

Kl,  K2 

Range  of  K  values  for  a  quadrilateral  set  of  cells 

LISTE,  LISTS, 

Alphanumeric  names  for  the  units  used  in  IPRINT 

LISTX, 

listings  for  energy,  stress,  distance,  and  velocity, 

LISTXD 

respectively 

LVAR(  ) 

Two-dimensional  array  containing  locations  in  COM  to 

begin  data  for  each  cell  and  coordinate 

M,  MAT,  MM 

Material  number 

MU  (  ) 

2 

Shear  modulus,  dyn/cm 

NBLOCK 

Number  of  quadrilateral  blocks  used  in  providing  the 

x,y  geometric  data 

NBND 

Number  of  special  boundary  groups,  used  only  for 

IJBUND  =  ±9.  See  Appendix  G 

NCMP (  ) 

Composite  material  indicator;  nonzero  means  that  the 

REBAR  subroutine  is  used 

NDS  (  ) 

Deviator  stress  model  indicator  (not  used) 

NDUMP 

Frequency  in  computational  cycles  at  which  a  restart 

dump  is  written  to  Tape  9 

NEXED 

Frequency  in  computational  cycles  at  which  listings  are 

requested  of  all  values  in  the  COM  array  not  in  a  normal 

edit 

NEXTRA 

Indicator  for  reading  extra  data  through  the  EXTRAT 

subroutine 

NFR(  ) 

Fracture  model  indicator  as  follows: 

0  no  fracture  model 

1  ductile  fracture,  DFRACT 

2  brittle  fracture,  BFRACT(3) 

3  SHEAR2  shear  band  model 
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4  SHEAR2  shear  band  model 

5  simple  tensile  fracture  in  tne  X  direction 

6  simple  tensile  fracture  in  tne  Y  direction 

7  static  ductile  fracture,  DFRACTS 

NJED 

Number  of  historical  listings  requested 

NMTRLS 

Number  of  materials 

NOBLQ 

Indicator  for  an  impact  on  a  fixed  oblique  wall  to  be 
impacted  by  the  material  laid  out 

NPLOT 

Frequency  in  computational  cycles  at  which  data  for  XY 
plots  are  written  to  Tape  3 

NPOR(  ) 

Porous  material  model  indicator;  nonzero  means  that 

CAP1  is  used 

NPR(  ) 

Pressure  model  indicator;  zero  means  Mie-Grtlneisen  and 

1  is  for  explosives 

NSTART 

Number  of  the  restart  file  to  be  used  for  a  restart 
problem,  zero  for  an  original  run  (read  from  Tape  1) 

NTRI  (  ) 

Indicator  for  separating  each  quadrilateral  cell  of  the 
material  into  two  triangular  cells 

NVAR(  ) 

Number  of  additional  variables  (beyond  the  usual  17) 
to  be  assigned  to  each  cell  of  the  material 

NVBLK 

Number  of  quadrilateral  blocks  used  in  initializing  the 
velocities 

NY AM 

Indicator  for  yielding;  nonzero  values  permit  initializa 
tion  of  yield  strength  and  shear  modulus 

P(  ) 

2 

Pressure,  dyn/cm 

Q 

Artificial  viscous  stress,  dyn/cm^ 

RHO  (  ) 

•  .  .  3 

p;  initial  density,  g/cm 

RHOS (  ) 

3 

P q 5  initial  solid  density,  g/cm 

SP(  ) 

Sound  speed,  cm/sec 
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SXX(  ) 

2 

Deviator  stress  in  the  x  direction,  dyn/cm 

SYY  (  ) 

2 

Deviator  stress  in  the  y  direction,  dyn/cm 

SZZ(  ) 

2 

Deviator  stress  in  the  z  direction,  dyn/cm 

TANTH 

Tangent  of  angle  of  fixed  oblique  wall 

TH(  ) 

Cell  rotation,  positive  counterclockwise 

TRIQ 

T^;  coefficient  of  triangular  artificial  viscosity 

TS 

Input  stop  time,  sec 

TSR(  ) 

Material  properties  array  available  for  special  models 

TXX(  ) 

2 

Total  stress  in  the  x  direction,  dyn/cm 

TXY  (  ) 

2 

Shear  stress  on  the  xy  plane,  dyn/cm 

TYME 

Problem  time,  sec 

TYY  (  ) 

2 

Total  stress  in  the  y  direction,  dyn/cm 

TZZ  (  ) 

2 

Total  stress  in  the  z  direction,  dyn/cm 

UZERO 

U z$  initial  velocity  of  an  impactor,  cm/sec 

X(  ) 

Eulerian  position  in  the  x  direction,  cm 

XA,  YA 

Eulerian  coordinate  positions  or  velocities  for  a 

quadrilateral  set  of  cells,  read  in  counterclockwise 
order  starting  with  point  of  smallest  K,  J  values 

XFIX(  ) 

X  value  used  with  special  boundary  conditions,  cm 

XD(  ) 

Particle  velocity  in  the  x  direction,  cm/sec 

Y(  ) 

Eulerian  position  in  the  y  direction,  cm 

YAD  (  ) 

2 

Work-hardening  modulus,  dyn/cm 

YC(  ) 

2 

Y;  initial  yield  strength,  dyn/cm 

YD  (  ) 

Particle  velocity  in  the  y  direction  cm/sec 

YFIX(  ) 

Y  value  used  with  special  boundary  conditions,  cm 

YY  (  ) 

Yield  strength  for  a  cell,  dyn/cm2 

Z(  ) 

Mass  of  a  cell,  g/cm  or  g 
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Appendix  G 


SPECIAL  BOUNDARY  CONDITIONS 

In  addition  to  the  standard  boundary  conditions  specified  by 
IJBUND  =  ±1  to  ±5,  special  kinematic  conditions  can  be  applied  at  indi¬ 
vidual  points  or  along  K  or  J  lines.  These  conditions  can  be  adjusted 
to  fix  a  point  in  the  X  or  Y  directions,  to  maintain  its  X  or  Y  velocity 
or  to  keep  the  point  within  specified  bounds. 

The  special  boundary  conditions  are  provided  for  IJBUND  =  ±9  (nega¬ 
tive  for  planar  and  positive  for  axisymmetric) .  The  input  parameter 
NBND  then  gives  the  number  of  special  boundary  conditions  to  be  provided 
For  each  boundary  condition,  values  of  IBDJ1,  IBDJ2 ,  IBDK1 ,  and  IBDK2 
give  the  range  of  J  and  K  values  affected.  Note  that  a  range  in  only 
one  (J  or  K)  is  permissible;  otherwise,  the  boundary  condition  would 
affect  interior  points.  Along  the  boundary  IBDY  and  IBDX  specify  how 
the  X  and  Y  directions  are  to  be  treated: 

IBDX  or  IBDY  =  0  No  control,  free  boundary 

1  No  change  in  velocity  permitted 

2  X  (or  Y)  is  required  to  be  £  XFIX  (or  YFIX) 

3  X  (or  Y)  is  required  to  be  _>  XFIX  (or  YFIX) 

The  other  two  quantities  XFIX  and  YFIX  provide  maximum  or  minimum  values 
of  the  X  and  Y  locations.  For  example,  the  radii  along  the  axis  of 
symmetry  can  be  kept  on  the  axis  by  specifying  IBDY  =  1  (Y  is  radial) . 
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